カウンター割り振りをマクロで

質問

SEQ番号を自動的に割り振る事の出来るマクロってありますか？
Sheet1に下記のようにあります。
　　Ａ　　Ｂ　　Ｃ　　Ｄ　　　
１　１　　２　　３　　４　
２　６　　７　　８　　９　
３　３　　５　　６　　７
４

Sheet2
　　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ
１　１　　１　　２　　３　　４　
２　２　　６　　７　　８　　９
３　３　　３　　５　　６　　７
４
sheet1より自動的にＳＥＱを割り振ったsheet2を自動的に作成したいのですが。
やりかたご存知のかた　お教えください。
おねがいします。

回答No.1

snoopy64 · ベストアンサー

Sub sCellShift()
Dim r As Long
Dim c As Long
For r = 1 To 100
If Worksheets("Sheet1").Cells(r, 1) = "" Then
Exit For
End If
For c = 10 To 2 Step -1
Worksheets("Sheet2").Cells(r, c) = Worksheets("Sheet1").Cells(r, c - 1)
Next
Worksheets("Sheet2").Cells(r, 1) = r
Next
End Sub

これでいかがですか？頑張ってくださいヽ(^。^)ノ

お礼

補足をしたのですが自分で解決できました。
有難うございました。

補足

早速のご回答有難うございます。
出来ました。
あともうひとつ教えていただきたいのですが
sheet1のないようが
　Ａ　　Ｂ　　Ｃ　　Ｄ　　Ｅ
１　Ａ 　 Ｂ　　Ｈ　　Ｑ　　Ｄ　
２　Ｆ　　Ｈ　　Ｄ　　Ｔ　　Ｕ　　
３　０　　０　　０　　０　　０
４　０　　０　　０　　０　　０
５　０　　０　　０　　０　　０
三行目からはゼロが入っていて
この場合は２行目までをＳＥＱを割り振るということも出来ますか？