[英]how to set worksheet to variable for further methods (with loop)
我已經使用此代碼從一個范圍創建了一個工作表(這對我有用)
Sub AddSheets1()
Dim cell As Excel.Range
Dim wsWithSheetNames As Excel.Worksheet
Dim wbToAddSheetsTo As Excel.Workbook
Set wsWithSheetNames = ActiveSheet
Set wbToAddSheetsTo = ActiveWorkbook
Dim xlWs1 As Worksheet
Set xlWs1 = Worksheets("template")
Set Rng1 = xlWs1.Range("A1:AR2")
For Each cell In wsWithSheetNames.Range("G3:G5") 'user to change this value when list is updated
With wbToAddSheetsTo
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = cell.Value
Set xlWs2 = Worksheets(CStr(cell.Value))
Set Rng2 = xlWs2.Range("A1")
Rng1.Copy Rng2
If Err.Number = 1004 Then
Debug.Print cell.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next cell
End Sub
所以現在,我要為新創建的工作表分配變量。 (以便我可以進一步使用ws1,ws2等進行操作。
Dim i As Integer, n As Integer
n = wsWithSheetNames.Range("G3:G5").Count
ReDim ws1(1 To n)
For i = 1 To n
Set ws1(i) = ThisWorkbook.Worksheets(i)
Next
如何將工作表名稱分配給從該范圍創建的名稱?
假設可能有比G3:G5中指定的更多的工作表,也許可以。
Dim r As Range, c As Range, x As Long
Set r = wsWithSheetNames.Range("G3:G5").SpecialCells(xlCellTypeConstants)
ReDim ws1(1 To r.Count)
For Each c In r
x = x + 1
Set ws1(x) = ThisWorkbook.Worksheets(c.Value)
Next c
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.