VBAで在庫管理を行う

Question

お世話になります。
VBAについてご教示お願い致します。
E列とH列の値が一致した場合に、F列にI列の値を出力し、最後の行まで処理します。というソースをつくりました。
しかし値が出力できません。解決策をご教示お願い致します。

Sub CompareAndOutput()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    
    ' 対象のシートを指定
    Set ws = ThisWorkbook.Sheets("normal-item") ' シート名を適切なものに変更してください
    
    ' E列の最後の行を取得
    lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row
    
    ' E1とH1の値が一致した場合に、F1にI1の値を出力
    If ws.Cells(1, "E").Value = ws.Cells(1, "H").Value Then
        ws.Cells(1, "F").Value = ws.Cells(1, "I").Value
    End If
    
    ' 最後の行まで処理
    For i = 2 To lastRow
        If ws.Cells(i, "E").Value = ws.Cells(i, "H").Value Then
            ws.Cells(i, "F").Value = ws.Cells(i, "I").Value
        End If
    Next i
End Sub###HR######FILE0a31187cddef01b09e597e60afc7340e7.xltmFILE0###

Accepted Answer

chatGPTでソース作ったりできるんですねｗ
すごい時代になりました・・・ｗ

下記コードでお試しください^^

Sub 在庫反映()
i = 2
Do Until Cells(i, "H") = ""
セット品番 = Cells(i, "H")
セット在庫数 = Cells(i, "I")


ii = 2
Do Until Cells(ii, "A") = ""

If Cells(ii, "E") = セット品番 Then


Cells(ii, "F") = セット在庫数
ii = ii + 1
Exit Do
End If
ii = ii + 1

Loop



i = i + 1

Loop

End Sub

Answer

せっきー様
おはようございます^^

' E列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "E").End(xlUp).Row

がE列が2行目が空欄なので、うまく最終行を拾っていないからかもしれないです。


' A列の最後の行を取得
lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

だといかがでしょうか？？

こういう書き方もあるんだなと勉強になりました＾＾
解決したら幸いです。

Answer

五月雨式にすみません＞＜
このVBAだと同じ列でセット品番が一致しないと値参照しないので、すべて空欄になってしまいますね＞＜

F2に下記を書いて下までコピペ、だとうまく動作しそうです。
=IFERROR(VLOOKUP(E2,H:I,2,0),"")

Answer

きっぺ様
早速ご回答ありがとうございます！
VBA全くわかってないのでchatGPTでソースつくりました！

ご指摘いただきました箇所を修正しましたがうまく出力できません。
私の入力不足があればお手数をおかけしますがご指摘をお願い致します。###HR######FILE0282cecabe27853a159aa5f92ae46935a.xlsmFILE0###

Answer

いただきました、関数ではできました！
ご教示ありがとうございます！

Answer

きっぺ様
急な問い合わせにもかかわらず丁寧なご対応ありがとうございました。
無事にVBAで在庫出力できました。
きっぺ様にご教示いただけたおかげで、VBAに関する知識を深めることができました。

ご対応いただきありがとうございます。