Excel総合相談所 134 - 暇つぶし2ch

Excel総合相談所 134 ..

450:名無しさん＠そうだ選挙にいこう
19/03/27 11:27:51.03 .net
>>447
Sub Macro1()
Sheets("管理シート").Select
最終行 = Cells(Rows.Count, 1).End(xlUp).Row
Cells(最終行 + 1, 1) = Cells(最終行, 1) + 1
Sheets("入力フォーム").Cells(1, 1) = Cells(最終行, 1) + 1
End Sub

次ページ

続きを表示

1を表示