如何用vba在excel中读取某列的数据添加到另一表的对应行

Question

如题所述

Answer 1

Sub iTans()
   Dim a, r, rg As Range
   Set rg = Sheet1.Range("A1:A9")
    a= rg
   With Sheet2
       r = .Cells(Rows.Count, "A").End(xlUp).Row
       .Cells(r + 1, "A").Resize(UBound(a, 2), UBound(a, 1)) _
           = Application.Transpose(a)
   End With
End Sub

Answer 2

Public Sub 痒痒养羊()
For i = 1 To 3
For j = 2 To 4
If Left(Sheet2.Cells(1, i), 1) = Sheet1.Cells(j, 1) Then
k = Sheet2.Cells(1, i).End(xlDown).Row
For m = 2 To k
Sheet1.Cells(j, m) = Sheet2.Cells(m, i)
Next
End If
Next
Next
End Sub本回答被提问者和网友采纳

Answer 3

for i=1 to 100
Sheet2.range("A" & i)=Sheet1.range("A" & i)
next