Question

我正在整理输入到存储在网络位置的多种形式的数据。我最多需要将10行（26列）粘贴到整理表中。

我正在尝试复制此数组并将其粘贴到整理工作簿中。

通过运气，我拼凑了很多代码，依次显示每个文件。所以我的代码令人震惊我已经使用了选择解决方案来计算数组的行数。


For P = 0 To ct1 - 1

Application.DisplayAlerts = False
    Workbooks.Open Filename:=FoundFiles(P)

DIM bulk as range   

   Sheets("bulk_data").Visible = True
   Sheets("bulk_data").Activate

   With ActiveSheet
blk = 0
   Range("B2").Select
    Do Until Selection = ""
        Selection.Offset(1, 0).Select
        blk = blk + 1
    Loop

现在我要复制“ B2：Z（blk）”并将其粘贴到目标文件中的下一个空白行

我以为

bulk = Selection.Offset(Range("b2"), 0, blk, 26)

可以，但是不能。

一旦有了该数组，我想将其粘贴（解析？）到整理表中的最新空白行。

Workbooks(DataBaseName).Activate
    Sheets("Input Tab").Activate
    Range("A2").Select
    Do Until Selection = ""
        Selection.Offset(1, 0).Select
    Loop

bulk.PasteSpecial Paste:=xlPasteValues

next p

我希望将BULK数组粘贴到另一张纸上，但是

动态偏移选择数组

0 个答案: