Excelで多くのセルのループを追加する方法

Question

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 

これは単セル（最初のセル）のコードです。私はループを入れて複数のセルのためにそれを実行したい。

Answer 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 

Answer 2

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