人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

エクセルのマクロで以下のような条件をつけた場合にすべて動作するマクロを作っていただけないでしょうか?
?例として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の特定セルをコピぺすることは必須でお願いします。

●質問者: yokosima_nhp
●カテゴリ:コンピュータ インターネット
✍キーワード:A1 エクセル コピペ コピー セル
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● きゃづみぃ
●100ポイント ベストアンサー
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

◎質問者からの返答

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

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ