前提
いつも商品の仕分けにVBAを使用していますが、
この度、一部の商品をスルーして仕分けしなくなりました。
「C社」の「商品×」(17行目の部分)だけ何度トライしても仕分けされなくなりました。
この問題が発生する前日までは処理出来ていました。
問題解決に向け、ご教示よろしくお願い致します。
ちなみに画像には「商品△Sheet」もありますが、
こちらのSheetには問題がないためSheetの説明は省きます。
(VBAのコードにこちらのSheet名が出てくるため、画像へ表示しました。)
実現したいこと
「商品×」を「商品×Sheet」へ仕分けしたいです。
発生している問題・エラーメッセージ
問題となっている箇所をスルーして完成してしまうのでエラーメッセージは出ません。
該当のソースコード
VBA
1 2Dim sh1 As Worksheet, sh2 As Worksheet, sh3 As Worksheet 3Dim LastRow As Long 4Dim i As Long 5Dim J As Long 6Dim SearchWord As String 7 8 'Sheetセット 9 Set sh1 = Sheets("商品〇") 10 Set sh2 = Sheets("商品△") 11 Set sh3 = Sheets("商品×") 12 '検索キーワードセット 13 SearchWord = "商品×" 14 '最終行セット 15 LastRow = Cells(Rows.Count, 2).End(xlUp).Row 16 17 'Sheetを指定 18 sh1.Select 19 'データ先頭行セット 20 J = 6 21 '最終行までEndIfまでの内容を処理 22 For i = 6 To LastRow 23 '検索キーワードを含む場合 24 If InStr(Cells(i, 2), SearchWord) > 0 Then 25 '該当データを転記 26 sh1.Range(Cells(i, 1), Cells(i, 6)).Copy sh3.Cells(J, 1) 27 Rows(i).Delete 28 '次の行へ 29 J = J + 1 30 End If 31 Next i 32
試したこと
・「=if(B16=B17,"一致","不一致")」の判定
⇒"一致"でした。
・「=LEN("B16") 」と「=LEN("B17")」で文字数比較
⇒差が出ませんでした。
・17行目(「C社」の「×商品」)を切り取って、他の行へ挿入した上でのVBA実行
⇒どの行へ持っていっても「C社」の「商品×」行のみスルーして処理されました。
・処理できている行の「商品×」を、問題となっているセルへ貼付けVBA実行
⇒変わらず「C社」の「商品×」行のみスルーして処理されました。
・セル書式の確認
⇒他の行と同じく「標準」でした。
回答3件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2022/10/06 11:36 編集
2022/10/07 07:57
2022/10/07 07:59