Excel 仅将值从一张图纸复制到另一张图纸的空白单元格中

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

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

只需增加范围以满足您的需要

替换：

Range("A2")

与：

只需选择覆盖整个数据的范围。

我解决了它：）

子测试（）
将此数组设置为变体
最后一排一样长
将索引设置为整数
索引=1
lastrow=单元格（Rows.count，1）.End（xlUp）.Row
thisarray=工作表（“矢量”）.范围（“A2:A”和lastrow）.值
虽然索引中有“工作表”（“Vectori”）。选择“但变量定义为“vector”是否需要新变量？”在“vector”变量中，我希望保留整列的值，但从单元格A2开始。在一个位置有Vectori，另一个位置有Vectori…我编辑了它…”Vectori是包含我需要粘贴到“TABEL”工作表中的值的工作表。很抱歉误解了它不起作用…如果可能的话，我希望将值从A2保留到最后使用的行
Range("A2:Z100")

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