| |
▼かみちゃん さん：
こんにちは。
ヒントをありがとうございました。
マクロを作ってみてから、ヒントに書き加えてみたのですが
以下のは未完成で、各シートからコピーではなく、一覧表の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から順に下へ張り付けをして、一覧表を作成しようとしています。
>>
>> (一覧表シート）
>>
>> （Ａ列）
>> 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
|
|
い
- 10/6/28(月) 16:41 -
