Vba 如何在excel中为多个单元格添加循环

这是我的单格（第一格）代码。我想通过为i设置循环来为多个单元格运行它。

执行以下操作：

Sub table()

Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets

    ws.Cells(1, "C") = Format(ws.Cells(1, "A"), "yyyymmdd") & Format(ws.Cells(1, "B"), "hhmmss")
    ws.Cells(1, "C").NumberFormat = "0"
    Next ws

End Sub

子表（）
将ws设置为工作表
对于ActiveWorkbook.Worksheets中的每个ws
对于i=1至500'抱歉，安全气囊系统代码不起作用。在///cell.NumberFormat=“0”////line中显示错误。error is object required您在第3行///ws.cells（1，“A”）中还写了一件事，“yyyymmdd”1代表1个单元格。我想在所有单元格中重复它。如果您的问题得到解决，请使用答案旁边的复选标记向其他读者指出这一点。：）
For Each ws In ActiveWorkbook.Worksheets
   for each cell in ws.range("C1:C1000")
      cell = Format(ws.Cells(1, "A"), "yyyymmdd") & Format(ws.Cells(1, "B"), "hhmmss")
      cell.NumberFormat = "0"
   next cell
Next ws

Sub table()
Dim ws As Worksheet
    For Each ws In ActiveWorkbook.Worksheets
        For i = 1 To 500 ' <-- Edit these numbers to modify the size of the iteration
            ws.Cells(i, "C") = Format(ws.Cells(i, "A"), "yyyymmdd") & Format(ws.Cells(i, "B"), "hhmmss")
            ws.Cells(i, "C").NumberFormat = "0"
        Next i
    Next ws
End Sub