| |
▼かずお さん：
マクロの記録で勉強されているみたいですね
徐々にでもコードの意味を理解されていくと良いですよ＾＾
ご質問の内容をそのままコードにしていくだけです
>For Each c In ThisWorkbook.Worksheets
> c.Cells.EntireColumn.AutoFit
>Rows("1:1").Select
↑ここで、どのシートの1行目なのかがわからないのでシート１以外のシート
だということを教えてあげます。
> Selection.Insert Shift:=xlDown
>Next
コードにするとこんな感じでいけると思います
Private Sub CommandButton4_Click()
Dim c As Worksheet
For Each c In ThisWorkbook.Worksheets
If c.Name <> "Sheet1" Then
c.Rows(1).Insert Shift:=xlDown
c.Range("A1:J1").Value = Sheets("sheet1").Range("A1:J1").Value
End If
c.Cells.EntireColumn.AutoFit
Next
End Sub
|
|
Lindy
- 07/7/3(火) 16:08 -
