型の不一致エラーを取得する

Question

このコードの塊でランタイムエラーが発生しました13「型の不一致」が発生し、その理由がわかりません。以前はMid()関数を使用していませんでした。これはエラーをスローする行です。初心者は、すべてのヘルプに感謝します。

文字列の3番目の文字が4に等しいかどうかを確認する行が必要な場合は、私はそれを望んでいます。

For k = 2 To NRow 
    If Mid(SummarySheet.Range("B2:B" & k), 3, 3) = 4 Then 
     SummarySheet.Range("B" & k & ":D" & k).Cut 
     SummarySheet.Range("R" & k & ":T" & k).PasteSpecial xlPasteValues 
    End If 
Next 

Answer 1

私は、これはあなたがやろうとしているものであると信じて：

あなたはあなたのデータを逆方向に反復する必要があります。

Midでは、一度に1つのセルしか使用できません。そして3番目の基準は長さなので、1にする必要があります。

値を設定してから、データをセットから削除することができます。

For k = Nrow To 2 Step -1 
    If Mid(SummarySheet.Range("B" & k), 3, 1) = "4" Then 
     SummarySheet.Range("R" & k & ":T" & k).Value = SummarySheet.Range("B" & k & ":D" & k).Value 
     SummarySheet.Range("B" & k & ":D" & k).Delete xlshiftUp 
    End If 
Next 

今、あなただけの値をクリアして、データに空白行を維持したいならば、これを使用する：

For k = Nrow To 2 Step -1 
    If Mid(SummarySheet.Range("B" & k), 3, 1) = "4" Then 
     SummarySheet.Range("R" & k & ":T" & k).Value = SummarySheet.Range("B" & k & ":D" & k).Value 
     SummarySheet.Range("B" & k & ":D" & k).Clear 
    End If 
Next 

Answer 2

Mid()は、単一のテキスト値の部分文字列を取得するために使用されます。あなたが配列上でこれを試しているので、動作しません。私はこれが何をしたいです完全にわからないんだけど、これはエラーをスローしないでください。

If Mid(SummarySheet.Range("B" & k).Value, 3, 1) = "4" Then 

お知らせ参照が単一のセルのためのものであり、「4」は、それが文字列だことを示すために引用されています。 1つの文字を探しているので、最後の引数を1に変更しました。