次の行列で伝票番号が同一のもので、空白セルがある場合に直前の数値、文字列をセットするマクロコードを教えて下さい。よろしくお願いします。
sample
A列 B列 C列 D列 E列
1 区分 日付 伝票番号 所属コード 所属名
2 あり 5/1 1000 1 あいう
3 あり 5/1 1000
4 あり 5/1 1000
5 なし 5/1 1001 2 かきく
6 なし 5/1 1001
7 なし 5/2 1002 3 さしす
8 なし 5/2 1002
9 なし 5/2 1002
10 なし 5 /2 1002
といった形です。
伝票番号が同じ場合は、所属コードと所属名をセットしたいと考えています。
最終行は毎回変動します。
何卒よろしくお願いします。
5
6
7
No.1ベストアンサー
- 回答日時:
以下のマクロを標準モジュールへ登録してください
Option Explicit
Public Sub sample()
Dim row, maxrow As Long
maxrow = Cells(Rows.Count, "C").End(xlUp).row
If maxrow < 3 Then Exit Sub
For row = 2 To maxrow
If Cells(row, "C").Value = Cells(row - 1, "C").Value Then
If Cells(row, "D").Value = "" Then Cells(row, "D").Value = Cells(row - 1, "D").Value
If Cells(row, "E").Value = "" Then Cells(row, "E").Value = Cells(row - 1, "E").Value
End If
Next
MsgBox ("完了")
End Sub
No.2
- 回答日時:
こんにちは!
Sub Sample1()
Dim i As Long
For i = 2 To Cells(Rows.Count, "A").End(xlUp).row
With Cells(i, "D")
If .Value = "" Then
.Resize(, 2).Value = .Offset(-1).Resize(, 2).Value
End If
End With
Next i
End Sub
こんな感じで良いのでしょうか?m(_ _)m
No.4
- 回答日時:
No1です。
>コンパイルエラー
>NEXTに対応するFORがありません
手打ちでNo1のマクロを打たないで、マウスでマクロを選択し、それを標準モジュールへコピー&ペーストしてください。
マクロはこちらで、動作確認済みのものを提示しています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 会計ソフト・業務用ソフト VBA 記録簿の行間を空けないコードを教えて欲しい。 5 2023/07/10 19:29
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- その他(データベース) 伝票番号、品番、在庫としてマクロでもAccessでもデータ表を作りたいのですが、ご指導お願いします 1 2022/11/13 23:48
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Visual Basic(VBA) Excelにて、シート1の行を削除するとシート2のシート1と同じ番号の行も削除したい 3 2022/05/08 04:24
- Visual Basic(VBA) VBA 改行コードの取り方 1 2022/03/22 14:14
- Excel(エクセル) 【VBA】A列の指定した値と同じ行にあるD列の値を順番にコピペするマクロについて 4 2023/02/01 18:16
- Visual Basic(VBA) Excel VBA マクロ ある列の最終行迄を参照し、別の列の空白セルに値を入力したいです 2 2023/03/05 02:44
- Visual Basic(VBA) Changeイベントで複数セルへの貼り付けおよび値削除時に1個目のセルのみエラーになる 3 2022/12/21 09:07
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
EXCELのVBAでRange("A1:C4")を...
-
一つのTeratermのマクロで複数...
-
Excel VBAからAccessマクロを実...
-
メッセージボックスのOKボタ...
-
非表示の列をすべて削除するマクロ
-
エクセルに張り付けた写真のフ...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
ExcelVBAでPDFを閉じるソース
-
VBA アドインについて お詳しい...
-
TERA TERMを隠す方法
-
マクロで空白セルを詰めて別シ...
-
EXCELマクロでのThisisWor...
-
サクラエディタ・マクロ → VSCo...
-
エクセルマクロ自動更新
-
[初心者です]VBAで指定列か...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報
すみません補足です
同一伝票番号で、所属コード、所属名の空白セルは
次のようになっています(泣)
伝票番号 所属コード 所属名
1000 1 あいう
1000
1000 1 あいう
1000 1 あいう
1000
1000
1000
1000 1 あいう
1000
といった感じです。
どうしたら良いでしょうか?
伝票番号はC列です。
記載のコードを実行すると
コンパイルエラー
NEXTに対応するFORがありません
と出てきます。。。