セルからいくつかの値を抽出しようとしています。
「-」の左側にあるセルの値を抽出する方法を理解しましたが、セルに「-」がまったくない場合にエラーが発生します。これらのセル/エラーを無視するにはどうすればよいですか?
どんな助けでも、私が作ったものを改善する方法をいただければ幸いです。
また、それが役立つ場合は、平均で約20000行あります。
Dim r As Long
Dim Location As Long
Dim m As Long
Dim ws As Worksheet
Set ws = Worksheets("NHBRSummary")
Set ws = Worksheets("Sheet1")
m = ws.Cells(ws.Rows.Count, "F").End(xlUp).Row
For r = 2 To m
Location = InStr(1, Cells(r, 1), "-")
Cells(r, 2).Value = Left(Cells(r, 1), Location - 1)
Next
End Sub
Set ws = Worksheets("Sheet1")
with ws
m = .Cells(.Rows.Count, "F").End(xlUp).Row
For r = 2 To m
if InStr(1, .Cells(r, 1), "-") > 0 then
.Cells(r, 2).Value = split(.Cells(r, 1).value)(0)
end if
Next
end with
wsをシートに設定し、すぐに変更します。使用しない場合は、最初のセットを削除する必要があります。
必要に応じて、left()とlocationを引き続き使用できます。これは、別の方法です。重要な部分は、instr()を使用したifステートメントです。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加