|
▼かみちゃん さん:
こんにちは。
ヒントをありがとうございました。
マクロを作ってみてから、ヒントに書き加えてみたのですが
以下のは未完成で、各シートからコピーではなく、一覧表のRange("H1:HP1")が
コピーされてしまい、各シートに対応ができていません。
張り付け先(一覧表)へ1行づつ下にずれて張り付けることもまだ対応が
できていません。
これに何を加えて、何を修正すればよいか、もうひとつヒントを
いただけますか?
BVA初心者な者で申し訳ありません。
Sub 一覧表作成()
Dim WS1 As Worksheet, WS2 As Worksheet
Dim n As Long
Set WS1 = Worksheets("一覧表")
For Each WS2 In Worksheets
n = 2
If WS2.Name <> "" Then
Range("H1:HP1").Select
Selection.Copy
Sheets("一覧表").Select
Cells(n, "A").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
End Sub
>こんにちは。かみちゃん です。
>
>>複数シートのセルH1:HP1までの範囲(全シート共通です)をコピーして
>>、”一覧表”というシートのA2から順に下へ張り付けをして、一覧表を作成しようとしています。
>>
>> (一覧表シート)
>>
>> (A列)
>> 1 (Sheet1のセルH1:HP1までのデータ)
>> 2 (Sheet2のセルH1:HP1までのデータ)
>> 3 (Sheet3のセルH1:HP1までのデータ)
>
>まずは、3シート程度に絞って、手作業でする場合の操作を「マクロの記録」で記録してみればいかがでしょうか?
>
>そのあと、300枚程度のシートの場合どうするかを考えていくようにすればいいです。
>以下は、ヒントです。
>Sub Sample()
> Dim WS1 As Worksheet, WS2 As Worksheet
>
> Set WS1 = Worksheets("まとめ")
> For Each WS2 In Worksheets
> If WS2.Name <> "まとめ" Then
> MsgBox WS2.Name
> End If
> Next
>End Sub
|
|