将值从工作表复制到另一个工作表仅复制到空白单元格中

Question

我是VBA的新手，也是这个网站的新手。我发现并修改了这个代码以满足我的需要，但它只复制了“TABEL”表（A列）空白单元格中A列的第一行（表格“Vectori”），我想复制A列中的所有值（表“Vectori”），不仅仅是一个。

Sub test()
    Dim myvalue As String
    Dim lastrow As Long

    lastrow = Rows(Rows.count).End(xlUp).Row

    Worksheets("Vectori").Select

    myvalue = Range("A2").value

    Worksheets("TABEL").Select

    Range("A2").Select

    'go to first blank cell

    ActiveCell.End(xlDown).Select

    ActiveCell.Offset(1, 0).Select

    'write variable values into this blank row

    ActiveCell.value = myvalue


    Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-1, 1)).copy

    ActiveCell.PasteSpecial xlPasteFormats

    Application.CutCopyMode = False
End Sub

Answer 1

只需增加范围即可满足您的需求。

更换：

Range("A2")

附：

Range("A2:Z100")

只需选择涵盖整个数据的范围即可。

Answer 2

我解决了:)

Sub test()

Dim thisarray As Variant
Dim lastrow As Long
Dim index As Integer
index = 1

lastrow = Cells(Rows.count, 1).End(xlUp).Row
thisarray = Worksheets("Vectori").Range("A2:A" & lastrow).value

While index <= UBound(thisarray)
        Worksheets("TABEL").Select
        Range("A2").Select
        ActiveCell.End(xlDown).Select
        ActiveCell.Offset(1, 0).Select
        ActiveCell.value = thisarray(index, 1)
 index = index + 1
Wend

End Sub

祝你今天愉快！