用数字填充行标题直到某个标准

Question

我正在尝试创建一个宏来填充工作表的行标题，方法是用Box编号标记它们：

专栏1

方框2

专栏3

......等等。

盒子的数量在另一张纸上。如果写入的数字是8，是否可以将其他工作表的行从Box 1填充到Box 8？

我有道理吗？

感谢。

Answer 1

如果您需要更具特色的东西，您可能需要求助于VBA。如果没有，以下工作：

1. 使用两张表创建一个新的Excel文件。
2. 在第二个工作表的单元格A1中，输入数字10

3. 在第一个工作表的单元格A1中，输入公式：

   = IF（COLUMN（）＆lt; = Sheet2！$ A $ 1，“BOX”＆amp; COLUMN（），“”）

4. 在第一个工作表上，选择A1。

5. 按CTRL-SHFT-RIGHT（这将选择整行）
6. 按CTRL-R（这将填充右侧的公式）

这是有效的，因为COLUMN（）返回当前列号（A1，A2，A3都返回3. B1，B2，B3都返回2）。

Sheet2中的值与当前COLUMN（）值之间的简单比较给出了1,2,3 ......直到您输入Sheet2的任何内容。

Answer 2

请尝试此代码

＆＃13;

＆＃13;

Sub test()
'change the sheet names and cell address in Range() to yours
 i = ActiveWorkbook.Sheets("Sheet2").Range("A1").Value
Sheets("Sheet1").Activate

For j = 1 To i
'replace 1 with your column no in cells(j,1)
Cells(j, 1).Value = "Box " & j
Next

End Sub

＆＃13;

＆＃13;

＆＃13;