Excel VBAシートの同一番地のセルのリスト化

質問

別々のシートの同一番地のセルの値をリスト化するのにこのようなVBAを見つけました。
シートは追加せず、既存のシートを指定したくて、色々と書き換えをチャレンジしましたがうまくいきません。
既存のシートを指定し、この作業を行うにはどうしたらよいのでしょうか？
ご教示いただけますと幸甚です。

Sub Test1()
Dim TmpSheet As Worksheet, i As Integer
i = Worksheets.Count
Set TmpSheet = Worksheets.Add(After:=Sheets(Sheets.Count))
With TmpSheet
For i = 1 To i
.Cells(i, 1).Value = Worksheets(i).Name
.Cells(i, 2).Value = Worksheets(i).Range("E5").Value
Next
End With
End Sub

回答No.2

ushi2015 · ベストアンサー

こんにちは
既存のシートの位置で欠番出来る可能性有りました。
Sub test2()
　　Dim TmpSheet As Worksheet
　　Dim i As Long
　　Dim j As Long
　　i = Worksheets.Count
　　Set TmpSheet = Worksheets("既存のシート名")
　　j = 1
　　With TmpSheet
　　　　For i = 1 To i
　　　　　　If Worksheets(i).Name <> .Name Then
　　　　　　　　.Cells(j, 1).Value = Worksheets(i).Name
　　　　　　　　.Cells(j, 2).Value = Worksheets(i).Range("E5").Value
　　　　　　　　j = j + 1
　　　　　　End If
　　　　Next
　　End With
End Sub

お礼

有難うございました。
成功しました！
1時間格闘していたものが、すぐ解決されました。
本当に助かりました。

回答No.1

ushi2015

こんにちは
Sub Test1()
　　Dim TmpSheet As Worksheet, i As Long
　　i = Worksheets.Count
　　Set TmpSheet = Worksheets("既存のシート名")
　　With TmpSheet
　　　　For i = 1 To i
　　　　　　If Worksheets(i).Name <> .Name Then
　　　　　　　　.Cells(i, 1).Value = Worksheets(i).Name
　　　　　　　　.Cells(i, 2).Value = Worksheets(i).Range("E5").Value
　　　　　　End If
　　　　Next
　　End With
End Sub
こういう事ですか？