返回列表 上一主題 發帖

[發問] 取工作表名稱再覆制多次

Sub Test0822()
Dim xR As Range, j%
[aa!A:B].Clear
Set xR = [aa!A1]
For j = 7 To Sheets.Count
  xR.Resize(20) = "=ROW(A1)"
  xR(1, 2).Resize(20) = Sheets(j).Name
  Set xR = xR(21)
Next j
End Sub

TOP

回復 10# n7822123


    多謝指導!

TOP

        靜思自在 : 信心、毅力、勇氣三者具備,則天下沒有做不成的事。
返回列表 上一主題