Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

16006 / 76734

←次へ　｜　前へ→


	【66202】Re:複数のシートの統合について

kamaboko - 10/8/8(日) 21:29 -


	引用なし

	パスワード

▼かみちゃんさん：
返信ありがとうございます。

>入力後に以下のコードを実行すると、
>その時点のアクティブシートのC列の値が入っている最終行のC列～G列をコピーして
>「一覧」シートのA列の値が入っている最終行の次の行に貼り付けします。
>したいことはそういうことではないのでしょうか？

↑おっしゃる通りです。

>Sub 転記()
>　Cells(Rows.Count, "C").End(xlUp).Resize(, 5).Copy _
>　　Sheets("一覧").Cells(Rows.Count, 1).End(xlUp).Offset(1)
>End Sub
早速、上記の教えていただいたコードを入力したのですが、
★の行がエラーになりました。
また、修正方法は下段に張り付けるだけでよかったのでしょうか。
本当に初歩的な質問ですみません。
またよろしくお願いします。

Option Base 1

Sub 支店別シート統合()
Dim シート名 As Variant
Dim 開始セル As String
Dim i As Long

シート名 = Array("札幌", "仙台", "新潟", "中央", "品川", "新宿", "世田谷", "港",　"さいたま", "千葉", "横浜", "静岡", "名古屋", "京都", "大阪")

Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.name = "一覧"

Sheets(シート名(1)).Activate
ActiveCell.CurrentRegion.Select
開始セル = ActiveCell.Address

Selection.Resize(1).Copy
Sheets("一覧").Range("A1").PasteSpecial xlPasteColumnWidths
Sheets("一覧").Range("A1").PasteSpecial

For i = 1 To 15
　 Sheets(シート名(i)).Activate
　 Range(開始セル).CurrentRegion.Select
　↓下記の★の行がエラーになりました。
★Selection.Offset(1).Resize(Selection.Rows.Count - 1).Select
　 Selection.Copy Sheets("一覧").Cells(Rows.Count, 1).End(xlUp).Offset(1)
Next i
　

Sheets("一覧").Activate
　
End Sub

Sub 転記()
　Cells(Rows.Count, "C").End(xlUp).Resize(, 5).Copy _
　　Sheets("一覧").Cells(Rows.Count, 1).End(xlUp).Offset(1)
End Sub

1 hits

▼

【66198】複数のシートの統合について kamaboko 10/8/8(日) 15:57