你能给列一个“变量名”为特定工作表在Excel VBA

Question

好了，我已阅读本：

Can you give columns in Excel a variable name?

，并从我的理解，我基本上可以设置“名称”平等A，这样当我这样做时：

For i = 1 to 100 

worksheets(Sheet1).Range(Name & i).Value = "poop" 

next i 

它将填满单元格A1：A100与便便。

但是，如果我要输入：

worksheets(Sheet2).Range(Name & i).Value = "poop" 

它也将填补A1：A100，除了在第2页了。

有没有什么方法的“名称”是工作表特定？例如：

Sheet1.Name = "A" 
Sheet1.Name = "F" 
For i = 1 to 100 

worksheets(Sheet1).Range(Name & i).Value = "poop" 
worksheets(Sheet2).Range(Name & i).Value = "poop" 

将导致sheet1的A列满了便便，并且sheet 2的列F满了便便。也许我太挑剔了，因为我知道我可以键入“Sheet1.Name”和“Sheet2.Name”，因为它们是该对象的，但我试图避免这种情况，因为我已经在Worksheets中指定它（ ），它会使代码更清洁。

我想我不得不把它放在每个表的模块，也许作为一个私人，因为它们都被称为“名”，但我真的不知道......

Answer 1

您需要创建一个新的范围对象，然后设置该范围对象。范围可以是一组细胞或一列或行：

Dim rngCol as Range 
Dim rngGroup as Range 

Set rngCol = Worksheets("Sheet1").Range("A:A") 
Set rngGroup = Worksheets("Sheet1").Range("A1:F100") 

rngCol.Value = "Poop" 
rngGroup.Value = "Poop" 

或者您也可以通过这些设置它们后迭代：

For each rngCell in rngCol 
    rngCell.Value = "Poop" 
Next rngCell 

Answer 2

代码：

Worksheets(Sheet1).Range("A:A").Name = "PoopRange" 

然后：

Range("PoopRange")总是引用Sheet1中，A列中

您可以通过该列中每个单元使用Range("PoopRange").Cells(i,1)循环。