Question

当您处于VBA循环中时，如何在Excel 2010中调出特定单元格，如A5或B5？

在顶部，我有：

SubAA()

Dim i As Integer

For i = 16 To 19

Windows("WorkbookA.xlsm").Activate
Range("(A,i)").Select
Selection.Copy
Windows("WorkbookB.xlsm").Activate
Range("C14").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Windows("WorkbookA.xlsm").Activate
Range("(B,i)").Select
Selection.Copy
Windows("WorkbookB.xlsm").Activate
Range("C18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False                 

Next i    

End Sub

Range("A,i)").Select存在问题。

我希望这个宏适用于多行，而不是一行。我让它在第15行正常工作，其中命令为Range("A15").Select。

我真的很喜欢宏工作，直到它到达一个空行，但现在这样做。我会想出来的。

Answer 1

我迷失了你想要做什么，但看起来你想复制来自＆＃39; WorkbookA.xlsm＆＃39;到工作簿B.xlsm＆＃39;。

For i=16 to 19
    Range("A"&i).Copy(Destination:=Workbooks("WorkbookB.xlsm").Sheets().Range("C"&i))
Next

该代码会将当前打开的工作表中的A16：A19的内容复制到第一张工作簿中的C16：C19＆＃39; WorkbookB.xlsm＆＃39;

请详细说明您的问题，我会给您更准确的答案。

Answer 2

尝试连接字符串和整数，如下所示：

Range("B" & i).Select

使用整数'i'调出像A15这样的特定单元格

2 个答案: