VBA循环excel表格

Question

我实际上是一个 vba 初学者并创建了我的第一个代码，但我需要做得更灵活...... 当我使用 makro 时，我想选择更多的 excel 表。实际上我只使用名为“sector_share_se”的工作表，但我如何为选定的工作表运行相同的 makro，例如“sheet_1”、“sheet_5”和其他？此外，有没有办法计算一个 cloumn 中的填充行？然后我可以创建一个灵活的范围，而不是 Range("A400") 和 Range("A4:A400")。

我在这里做了什么？

我想在每月的 scala 上设置年度数据。我在填充的行之间创建了 11 个空行，并从名为“MSCI”的表中复制了月度刻度。最后一步是用 NA 填充空单元格（以每行 11 个 NA 值的方式）

   Sub Year_to_Month()
    ' emtpy space in selected sheet
    Sheets("sector_share_se").Select
    Dim i As Long
    i = sector_share_se
        For i = Range("A400").End(xlUp).Row To 5 Step -1
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
            Cells(i, 1).EntireRow.Insert
        Next i

    ' Create time frequency
           Sheets("MSCI").Range("A4:A400").Copy
           Sheets("sector_share_se").Range("A4:A400").PasteSpecial

    ' replace empty with NA
        Range("A4:AI310").Select
        Selection.Replace What:="", Replacement:="NA", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False
    End Sub

提前致谢 勒内

使用@MatthewD 的信息进行编辑：

' I understand iIndex as number of the excel sheet and it is possible to 
' adress the correct sheet with it but how can I use here more sheets that I
' can enter only the Number (or Name) of the sheet e.g. iIndex = 1,2,3,7,9,15 


Dim lRow As long
Dim iIndex As long
For iIndex = 1 To ActiveWorkbook.Worksheets.count
    Set ws = Worksheets(iIndex)
    For ws = Range("A400").End(xlUp).Row To 5 Step -1
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
        Cells(i, 1).EntireRow.Insert
    Next i

' I hope that I set the maximum lenght with "ws.UsedRange.Rows.count" 
' and copy it row by row
   For lRow = 1 To ws.UsedRange.Rows.count
     Sheets("MSCI").Range("1:lRow").Copy
     Sheets("banking_sector").Range("1:lRow").PasteSpecial
   Next lRow

' I think that this is quiet okay (I recorded it only), it should 
' select the hole data and replace the NA's
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Replace What:="", Replacement:="NA", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False

Answer 1

这是一个 sub 可以循环工作表并通过名称激活一个。

Dim ws As Excel.Worksheet
Private Sub loopsheets(strSheetName As String)
    iFoundWorksheet = 0
    For iIndex = 1 To ActiveWorkbook.Worksheets.count
        Set ws = Worksheets(iIndex)
        If UCase(ws.Name) = UCase(strSheetName) Then
            iFoundWorksheet = iIndex
            Exit For
        End If
    Next iIndex
    If iFoundWorksheet = 0 Then
        MsgBox "No worksheet was found with the name RESULTS (this is not case sensetive). Aborting."
    End If
    Set ws = ea.Worksheets(iFoundWorksheet)
    ws.Activate

End Sub

或者只是循环浏览床单并做一些事情。

For iIndex = 1 To ActiveWorkbook.Worksheets.count

    Set ws = Worksheets(iIndex)
    'Do something here.

    'Or call you sub
    Year_to_Month

Next iIndex

与使用 Range("A400") 和 Range("A4:A400") 相比，usedRange 是一种更好的循环工作表内容的方法。

 'Loop through the columns.
 Dim lRow as long
 For lRow = 1 To ws.UsedRange.Rows.count
     'Do something here.
 Next lRow

要检查是否有东西被填满，你会做这样的事情。

If  ws.cells(RowIndex, ColIndex).Interior.ColorIndex > 0 then
     'We have a filled cell
End if

您可以按名称或索引对工作表进行寻址

Set ws = Worksheets(3)

或

Set ws = ActiveWorkbook.Sheets("Sheet1")

Answer 2

您可以录制一个宏，然后重复流程。按 f8 逐行运行。如果你这样做，你会更好地理解它。