0

エクセル、マクロができる人にお聞きしたいのです。 過去に何度か、おたずねして何とか形のあるものにできあがりました。
今回はそれを改良しましたが、これ以上はできずに困っております。
このようにしたい

①Sheet1のＡ１とＡ２とＡ３とＡ４の文字が入っています。
同様にＢ２とＢ３、Ｃ２とＤ２というように列の２と３には文字が入っています。
ボタンを押すとＡ１とＡ２とＡ３とＡ４が順序良くメモ帳に転記され、メモ帳には名前を付けて
デスクトップに新規フォルダを作成しその中に入れるというものです。

Ａ１とＡ４は固定で列の２と３だけが変わるようにしたいのです。
Ａ２とＡ３がＢ２とＢ３になって、Ａ１とＢ２とＢ３とＡ４という風にしたいのです。
例えば、列がＥまであるとすると、
Ａ１とＡ２とＡ３とＡ４
Ａ１とＢ２とＢ３とＡ４
Ａ１とＣ２とＣ３とＡ４
Ａ１とＤ２とＤ３とＡ４
Ａ１とＥ２とＥ３とＡ４
となります。
ですが、数の設定が限定だと大変だとご指摘を受けましたので、
このように数を設定しないで、列の２と３は右側には入っていないまで確認して行き、そこまで行きつけば
終了にして、メモ帳に番号Ａ００１（以下Ｂ００１、Ｃ００１という風に変わっていく例の場合Ｅ００１まで、右側には入っていないまで確認して行くときは列の番号を付けていく）という風にして、名前を付けてtextファイルを作成し、デスクトップに新規フォルダを作成しその中に入れるというものです。

下を参考にしていただけたら助かります。
もちろん独自でできる方は、作っていただけるとありがたいです。

すみません、何とか助けていただけたらありがたいです。
よろしくお願いいたします。

参考
Sub NotePadTest()
Dim TaskNo As Double

Worksheets("Sheet1").Activate
If Range("A1").Value = "" And Range("A2").Value = "" And Range("A3").Value = "" Then
Exit Sub
End If

Range("A1:A3").Copy

TaskNo = Shell("notepad.exe", vbNormalFocus)
SendKeys "%{E}", True
SendKeys "{P}", True
SendKeys "%{F}", True
SendKeys "+{A}", True
SendKeys "Test.txt", True ' ← ﾃｷｽﾄﾌｧｲﾙ名の入力
SendKeys "{Enter}", True
SendKeys "%{F}", True
SendKeys "+{X}", True

Application.Wait Now + TimeValue("0:00:01")
Application.CutCopyMode = False
End Sub

質問者が選んだベストソリューション

Yahoo!知恵袋 5222日前