|
▼かみちゃん さん:
返信ありがとうございます。
>入力後に以下のコードを実行すると、
>その時点のアクティブシートの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
|
|