回答受付が終了しました

エクセルのマクロについて 当方マクロ初心者でございます。

Visual Basic | Excel32閲覧xmlns="http://www.w3.org/2000/svg">250

回答(1件)

0

お示しのコードを整理して、要求を加味すると↓になりますね。 Sub サンプル() With Worksheets("入力") .Range("E48:G48").Copy Worksheets("集計").Range("T" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Paste:=xlPasteValues .Copy After:=Sheets(2) With ActiveSheet .Range("B3").Value = "514" .Name = "514" End With .Range("B3,D6:D36,H6:H36,A38:D41,H38:H41,A44:D47").ClearContents End With End Sub このままだと、2回目に実行するとシート名が重複します。 解決策は考えてください。