填充行標題與數字，直到一定的標準

Question

我試圖創建一個宏像箱號標籤它們來填充工作表的行標題：

框1

盒2

方框3

...等等。

箱子的數量在另一張紙上。如果寫在那裏的數字是8，是否有可能填充從方框1到方框8的另一張紙的行？

我有道理嗎？

謝謝。

Answer 1

如果你需要一些你特別要求的東西，你可能需要訴諸VBA。否則，以下工作：

1. 創建一個新的Excel文件與兩個表。
2. 在第二工作表，單元格A1，輸入數目爲10

3. 在第一工作表，單元格A1，輸入公式：

   = IF（COLUMN（）< = Sheet2的$ A $ 1，」 BOX「& COLUMN（），」「）

4. 在第1張工作表上，選擇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

請試試這個代碼

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