VBA 空白をスキップしたい

Question

ほぼ同じコードを使用し、うまくいく場合といかない場合があり、困り果てております。
以下のコードにおいて

Set pasteSheet = Sheets(copySheet.Cells(copyRow, "I").Value)

copyRow=3　でエラーとなり、

I列には　=IF(H2=0,"　",VLOOKUP(H2,商品ﾘｽﾄ!O:P,2,0))　の数式が入っており、
H2に数値が入っており、問題なし
H3が空白の場合、エラーとなります

空白の場合のエラーをなくしたいのですが、どうしてもできません。

試したこと
＊ For copyRow = 2 To 7 を
For copyRow = 2 To copySheet.Cells(Rows.Count, "I").End(xlUp).Row

＊ If IsError(val) = False Then を
If IsNumeric(val) = True And val > 0 Then

＊ If IsError(val) = False Then を
If IsError(val) = False And val <> "" Then

1つずつ試しに変更してみても、うまくいきません。

どのような変更が必要でしょうが、ご教授いただけると助かります。

Public Sub sample()
    Sheets("データ蓄積").Select
    最終 = Cells(Rows.Count, "A").End(xlUp).Row + 1
    Sheets("データ移行").Select

    InRow = 7     Do While Trim(Range("A" & InRow)) = "" And InRow >= 2
        InRow = InRow - 1
    Loop
    If InRow <= 1 Then
        MsgBox "データがありません。"
        Exit Sub
    End If
    Range("A2:H" & InRow).Select 

    Selection.Copy

    Sheets("データ蓄積").Select
    Range("A" & 最終).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=True, Transpose:=False
    

    
    Dim copyRow As Long         
    Dim copySheet As Worksheet  
    Dim pasteRange As Range     
    Dim pasteSheet As Worksheet 
    Dim val As Variant

    Set copySheet = Sheets("データ移行")

    For copyRow = 2 To 7  
    
        val = copySheet.Cells(copyRow, "I").Value

       If IsError(val) = False Then      
            **Set pasteSheet = Sheets(copySheet.Cells(copyRow, "I").Value)**
            Set pasteRange = pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1)
            pasteRange.Resize(, 4).Value = copySheet.Range(copySheet.Cells(copyRow, 1), copySheet.Cells(copyRow, 4)).Value
            pasteRange.Resize(, 1).Offset(, 5).Value = copySheet.Cells(copyRow, 6).Value
        End If
    Next
    
    Sheets("情報入力").Select
    Range("C6").Select

End Sub

Answer 1

###回答

ぱっと見た感じ、以下のように書けば、できそうな気がしますが、どうでしょうか？

For copyRow = 2 To 7
    val = copySheet.Cells(copyRow, "I").Value
    val = Replace(val, "　", "") '//全角スペースは取り除く
    
    If val <> "" Then '//空白の時はスキップ
        Set pasteSheet = Sheets(copySheet.Cells(copyRow, "I").Value)
        Set pasteRange = pasteSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1)
        pasteRange.Resize(, 4).Value = copySheet.Range(copySheet.Cells(copyRow, 1), copySheet.Cells(copyRow, 4)).Value
        pasteRange.Resize(, 1).Offset(, 5).Value = copySheet.Cells(copyRow, 6).Value
    End If
Next

###原因推測
I列のセルに入っているIF関数でH2=0のとき全角スペースを1つ出力していると思うので、
この全角スペース1つの空白が来た時は、スキップする条件を入れる必要があると思います。
※全角スペース1つには意図があるのでしょうか？

質問者さんが試されていた以下のコードではvalの値が全角スペースのため、条件にヒットしていないと思います。
H2が0もしくは空白の場合は、I列セルのIF文ではTRUE条件（全角スペース）が選択されると思います。

If IsError(val) = False And val <> "" Then

以上、解決しましたら幸いです。

Comments

[mi07]

ありがとうございます！全角スペースに気が付けませんでした。。。ありがとうございました！