エクセルの使い方

質問

エクセルを使い、自動で複式簿記の仕分けができるようにしたいので、次のようなことはできますか？
第１シートの表は入力されている行と入力されていない行があり、この表をもとに、第２シートに入力されている行のみを上から順に詰めた表が自動で作成されるようにすることはできますか？
説明が難しいなら、何を勉強すればいいですか？マクロとかVBAとかなら、何の部分になりますか？

回答No.2

shishishishi · ベストアンサー

> １．Sheet2に表示させるデータを３行目からにする場合には、どのように変化させるのでしょうか？
> ２．Sheet2に表示させるデータをA列からD列にする場合には、どのように変化させるのでしょうか？

修正しました。

Sub tenki02()
Dim i As Integer, n As Integer
n = 3
For i = 3 To 100

If Sheets("Sheet1").Cells(i, 1) <> "" Then
Sheets("Sheet2").Cells(n, 4).Value = Sheets("Sheet1").Cells(i, 1)
n = n + 1
End If
Next
End Sub

お礼

どうもありがとうございます。
大変助かりました。

回答No.1

shishishishi

VBAでやってみました。

シート１のA列にデータがとびとび入っていて、シート２のA列にデータを上から切れ目なく順番に表示させる方法です。
失敗するとまずいのでまずはバックアップをとってからテストしてみてください。
シート１のデータをとりあえず100行目まで対象にしましたが、For i = 1 To 100の100を変更すればいくつでもOKです。

１．Alt + F11 または、[ツール] メニューの [マクロ] をポイントし、 Visual Basic Editorをクリックします。

２．Visual Basic Editor ウィンドウのメニューから、 　[挿入]→[標準モジュール] をクリックします。

３．表示されたコードウィンドウ（白く広い部分。カーソルが点滅していると思います。）に以下のマクロコード（SubからEnd Subまで）をコピペします。

４．ワークシートに戻り、[ツール] メニューの [マクロ] →「マクロ」で今貼り付けたマクロ名（tenki）を選択して、実行。

Sub tenki()
Dim i As Integer, n As Integer
For i = 1 To 100
If Sheets("Sheet1").Cells(i, 1) <> "" Then
n = n + 1
Sheets("Sheet2").Cells(n, 1).Value = Sheets("Sheet1").Cells(i, 1)
End If
Next
End Sub

補足

わざわざ、どうもありがとうございます。恐れ入りますが、もしできましたら、

１．Sheet2に表示させるデータを３行目からにする場合には、どのように変化させるのでしょうか？
２．Sheet2に表示させるデータをA列からD列にする場合には、どのように変化させるのでしょうか？

あつかましくてすみません。