Excel VBA 遍历单元格 单元格读取

Sub test()

Dim str

Dim i, j

i = 1

j = 1

For r = 1 To Worksheets(2).UsedRange.Rows.Count

    For c = 1 To Worksheets(2).UsedRange.Columns.Count

        str = Worksheets(2).Cells(r, c).Value

        Worksheets(3).Cells(j, 1).Value = i

        Worksheets(3).Cells(j, 2).Value = c

        Worksheets(3).Cells(j, 3).Value = str

        j = j + 1

        Next

    i = i + 1

Next

End Sub

EXCEL VBA遍历工作表六种方法

1.Sub 遍历工作表()

For Each sh In Worksheets    '数组

sh.Select

Call 设置A1格式

Next

End Sub

--------------------------------------

2.Sub 遍历工作表()

For Each sh In Worksheets    '数组

if sh.name <> 表名1 and sh.name <>表名 2 then

sh.Select

Call 设置A1格式

end if

Next

End Sub

--------------------------------------

3.Sub 循环工作表()

For Each sh In Worksheets

If sh.Index > 2 Then    '限定工作表范围

sh.Select

Call 设置A1格式

End If

Next

End Sub

--------------------------------------

4.Sub 遍历工作表()

For Each sh In Worksheets    '数组

If sh.Name Like "*" & "表" & "*" Then     '如果工作表名称包含“表”

sh.Select

Call 设置A1格式

End If

Next

End Sub

5.Sub 遍历工作表()

For Each sh In Worksheets    '数组

If Not sh.Name Like "*" & "表" & "*" Then     '如果工作表名称不包含“表”

sh.Select

Call 设置A1格式

End If

Next

End Sub

6.Sub 遍历工作表()

For Each sh In Worksheets    '数组

If sh.Name <> "价格表" And sh.Name <> "人员表" Then    '指定不参与循环的工作表名称，可一个或多个，自行增减

sh.Select

Call 设置A1格式

End If

Next

End Sub