使用vba

Question

我需要将文件从一张纸复制到另一张纸上，我必须将它们从一张excel纸中过滤掉，该一张纸在一张纸中总是有6张或更多张桌子，它们甚至不能折叠同一张桌子，但是我需要裁切从中提取重要信息并将其合并。
tl; dr vba一旦让我将其复制到另一个工作表中，就不会让我指定带有变量的单元格区域

客户不想支付许可费，因此我在这里尝试在excel中使用VBA重新创建SQL innerjoin。

• 如果我只是说Range（“ A1”）之类的话，它就可以工作
• 使用一些额外的变量来减少数字和字母
• 宏也不起作用

-------------------------- Works

ThisWorkbook.Worksheets("SecretCompany").Range(Cells(ZellenNummer(i), 1), Cells(ZellenNummer(i - 2), 16)).Copy _
   Destination:=Worksheets("SecretCompany" & Counter).Range("A1")
Counter = Counter + 1

--------------------------但是这不是

ThisWorkbook.Worksheets("SecretCompany").Range(Cells(ZellenNummer(i), 1), Cells(ZellenNummer(i - 2), 16)).Copy _
   Destination:=Worksheets("SecretCompany1" & Counter).Range(SomeVariable)
Counter = Counter + 1

它只会导致错误1004。