vba列範囲の拡大について

以前2010/01/18でエクセル2003横のデータを縦に並べたいという質問がありました。当方のデータ
は列が多くzでは足らずdzくらいまで必要ですが現状の回答のvbaではｚまでしかつかえませんでしたのでいろいろ試行錯誤しましたが解決しませんでした。範囲を広げる方法を教えていただけませんでしょうか。よろしくお願いいたします。

質問者からの補足コメント

• 回答ありがとうございます。当方、たまたま検索していた中で使えそうなものはないかと探していましたがvbaの知識はなく具体的に何処を直せばよいかわかりません。このマクロでは列の範囲がz
  列以上は確認できませんでしたので、簡単に直せないかな思いましたので投稿しました。

  No.4の回答に寄せられた補足コメントです。 補足日時：2020/11/18 13:41

• コードを入力していますがエラーメッセージが出ています。
  doに対するloopがありません。
  よろしくお願いします。

    補足日時：2020/11/19 12:56

No.6 ベストアンサー 回答者： bonaron 回答日時： 2020/11/19 09:11

見にくいので修正。

Sub Sample()
　　Dim Sh1 As Worksheet
　　Dim Sh2 As Worksheet
　　Dim i As Long, j As Long, X As Long
　　Application.ScreenUpdating = False
　　Set Sh1 = Worksheets("Sheet1")
　　Set Sh2 = Worksheets("Sheet2")
　　i = 1
　　Do While Sh1.Cells(i, 1) <> "" 'Sheet1の行移動ループ
　　　　j = 3
　　　　Do 'Sheet1の列移動ループ
　　　　　　X = X + 1 'Sheet2の次の行へ
　　　　　　Sh2.Cells(X, 1) = Sh1.Cells(i, 1)
　　　　　　Sh2.Cells(X, 2) = Sh1.Cells(i, 2)
　　　　　　Sh2.Cells(X, 3) = Sh1.Cells(i, j)
　　　　　　j = j + 1
　　　　Loop While Sh1.Cells(i, j) <> ""
　　　　i = i + 1 'Sheet1の次の行へ
　　Loop
　　Application.ScreenUpdating = True
　　MsgBox ("完了")
End Sub

No.7 回答者： bonaron 回答日時： 2020/11/19 13:18

>コードを入力していますがエラーメッセージが出ています。

そちらのコードは見えませんので
入力ミスはご自分で探してください。

No.5 回答者： bonaron 回答日時： 2020/11/19 08:58

No.4 です。

スピードアップは考慮せず、かなり基本的なコードです。

Sub Sample()
　　Dim i As Long, j As Long, X As Long
　　Application.ScreenUpdating = False
　　i = 1
　　Do While Worksheets("Sheet1").Cells(i, 1) <> "" 'Sheet1の行移動ループ
　　　　j = 3
　　　　Do 'Sheet1の列移動ループ
　　　　　　X = X + 1 'Sheet2の次の行へ
　　　　　　Worksheets("Sheet2").Cells(X, 1) = Worksheets("Sheet1").Cells(i, 1)
　　　　　　Worksheets("Sheet2").Cells(X, 2) = Worksheets("Sheet1").Cells(i, 2)
　　　　　　Worksheets("Sheet2").Cells(X, 3) = Worksheets("Sheet1").Cells(i, j)
　　　　　　j = j + 1
　　　　Loop While Worksheets("Sheet1").Cells(i, j) <> ""
　　　　i = i + 1 'Sheet1の次の行へ
　　Loop
　　Application.ScreenUpdating = True
　　MsgBox ("完了")
End Sub

No.4 回答者： bonaron 回答日時： 2020/11/17 19:50

多分、元ネタはこれ。

https://oshiete.goo.ne.jp/qa/5605894.html

Range("XX") の記述をしているので難しいことになってますが、
Cells (i,j) にするか、 Range型の オブジェクト変数を使えば
アルファベット部分の桁数なんか気にしなくてすむでしょうに。

No.3 回答者： fujillin 回答日時： 2020/11/17 14:00

こんにちは

＞範囲を広げる方法を教えていただけませんでしょうか。
VBAのエディタで、当該VBAを表示します。
列を制限している部分を、必要な列までに修正ます。
以上で、できると思いますが…？

どこを修正するのかって？
そのもう少し下の、そこのところでしょう。

No.2 回答者： chonami 回答日時： 2020/11/17 12:11

2003以前でもZ列までしかないということはないかと思いますが。

>現状の回答のvba

とりあえずこちらのコードを提示してみては？
後、もう少しやっている内容の説明をした方がいいと思います。

No.1 回答者： ppp2122 回答日時： 2020/11/17 11:21

？？？

どうやって回答しろと？

範囲を広げるって・・・

単に指定範囲を広げればいいのでは？