エクセルのマクロで以下のような条件をつけた場合にすべて動作するマクロを作っていただけないでしょうか?

①例としてsheet1の下記のような文字列が並んでいます

 |A列   |
1|あした  |
2|あさって |
3|しあさって|

②次にsheet2に以下のような文字列があったとします

 |A列 |
1|可能 |
2|不可能|
3|不明 |

※上記sheet2の文字列は関数により他のセルを参照した文字列が入っています。
③上記sheet1.sheet2からsheet1のA1の内容をSheet2のA4へコピー。

 |A列 |
1|可能 |
2|不可能|
3|不明 |
4|あした|

④その後sheet2のA1~A4を関数の"CONCATENATE”を使ったように文字全てをつなぎます。
次につないだ文字列をsheet3へ下記のように並べます

 |A列 |B列        |
1|あした|可能不可能不明あした|
※a1の内容もsheet2へコピペする時に一緒に貼り付けます。

⑤.③④の動作を繰り返し、sheet3に一覧を作りたいです。
以上のような条件ですが作れますでしょうか?
ちなみにsheet2.3の特定セルをコピぺすることは必須でお願いします。

回答の条件
  • URL必須
  • 1人2回まで
  • 13歳以上
  • 登録:2010/04/26 05:29:21
  • 終了:2010/04/28 04:41:10

ベストアンサー

id:taknt No.1

きゃづみぃ回答回数13537ベストアンサー獲得回数11982010/04/26 06:20:32

ポイント100pt
Sub マクロ()
s1 = "sheet1"
s2 = "sheet2"
s3 = "sheet3"
sb = 4

c = 1

For a = 1 To 65536
    If Worksheets(s1).Cells(a, 1) = "" Then Exit For
    Worksheets(s2).Cells(4, 1) = Worksheets(s1).Cells(a, 1)
    Worksheets(s3).Cells(c, 1) = Worksheets(s1).Cells(a, 1)
    
    d = ""
    For b = 1 To sb
        d = d & Worksheets(s2).Cells(b, 1)
    Next b
    Worksheets(s3).Cells(c, 2) = d
    
    c = c + 1
Next a
    
End Sub

ま ③の所作は不要かと思うけど、一応組み入れておきました。

また、sheet2のA1からA3までの連結も 一度やっておけばいいみたいですが、毎回しています。

というか これで 動作OK?

http://q.hatena.ne.jp/1272227360

id:yokosima_nhp

思っている通りの動きを実現しました。少し自分なりにアレンジしましたがはてな人力で大まかな内容を答えていただけると仕事がどんどん進むのでありがたいです。

2010/04/28 04:40:36

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません