Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


295 / 74621 ←次へ | 前へ→

【79969】Re:別々のシートにある列の結合 VBA
質問    - 18/6/9(土) 23:17 -

引用なし
パスワード
   マナ様 γ様

ご教授ありがとうございます。
記録したマクロをベースに、書き換えに挑戦してみません。お陰様で「A列の選択」「何番目のシート選択」と「最後のシート選択」の構文を覚えました。
ここまでの構文は下に貼り付けました。本当に、恥ずかしながらこの程度のレベルなのです。

ここで改めて質問です。
この後、約200シートを処理する際には、構文を200回コピーして、シートの選択の(数字)の書き換えと貼り付ける位置(Columns)の書き換えが必要を思われます。
 もっとすっきりした構文にしたいと思い、シートは、「次のシートを選択」にするといいのかと思い、(ActiveSheet.Next.Activate)に置き換えてみましたがうまくいきませんでした。「貼り付ける位置を右に一つずつずらす」に関しては、現在のところ検討もつかないところです。
 ご教授よろしくお願いいたします。


Sheets(1).Select
  Columns("A:A").Select
  Application.CutCopyMode = False
  Selection.Copy
  Worksheets(Worksheets.Count).Select
  Columns("A:A").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheets(2).Select
  Columns("A:A").Select
  Application.CutCopyMode = False
  Selection.Copy
  Worksheets(Worksheets.Count).Select
  Columns("B:B").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False
  Sheets(3).Select
  Columns("A:A").Select
  Application.CutCopyMode = False
  Selection.Copy
  Worksheets(Worksheets.Count).Select
  Columns("C:C").Select
  Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

46 hits

【79961】別々のシートにある列の結合 VBA 18/6/6(水) 21:43 質問[未読]
【79962】Re:別々のシートにある列の結合 VBA マナ 18/6/6(水) 22:30 発言[未読]
【79964】Re:別々のシートにある列の結合 VBA 18/6/7(木) 23:05 質問[未読]
【79965】Re:別々のシートにある列の結合 VBA マナ 18/6/8(金) 18:56 発言[未読]
【79966】Re:別々のシートにある列の結合 VBA γ 18/6/8(金) 19:10 発言[未読]
【79969】Re:別々のシートにある列の結合 VBA 18/6/9(土) 23:17 質問[未読]
【79973】Re:別々のシートにある列の結合 VBA γ 18/6/10(日) 11:51 発言[未読]
【79980】Re:別々のシートにある列の結合 VBA 18/6/10(日) 22:21 お礼[未読]

295 / 74621 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free