Question

我现在已经找了很长时间才找到解决问题的简单方法，但我找不到它。我的问题是我想引用一个单元格并将其用作我的VBA代码中的文本。

例如：说单元格= C104

VBA会：

wb2.Sheets("Cell").Range("F8:F22").Copy
wb1.Sheets("asd").Range("B7:B21").PasteSpecial

这不起作用，因为它实际上并没有使用来自单元格的文本。我尝试过使用cell().Text和.value，但他们没有工作。

Answer 1

您有多个工作簿和多个可用的工作表，可能是 cell 的父级。您需要明确引用单元格，并将其.Value或.Text用作工作表名称，而不依赖于 Activesheet 作为默认父级。

dim myWS as string
myWS = wb1.Sheets("asd").Range("C104").value  '◄ this gets the value of cell. I don't know if I have referenced the correct workbook and worksheet
wb2.Sheets(myWS).Range("F8:F22").Copy _
  destination:=wb1.Sheets("asd").Range("B7")

读取单元格并使用文本作为VBA公式的输入

1 个答案: