VBAは

2016-08-03 13 views
0
With Worksheets("Sheet2") 
    NewRow = .Range("C" & Rows.Count).End(xlUp).Row + 1 


.Range("A" & NewRow) = ws.Range("A91") 
.Range("B" & NewRow) = ws.Range("A92") 


If ws.Range("A93") = "LN:" & Then 
    .Range("C" & NewRow) = ws.Range("A94") 
Else 
    .Range("C" & NewRow) = ws.Range("A93") 
End If 


End With 

がどのように私はそのラインを変更することができ、部分文字列検索をエクセル:セルA93内のテキストで始まる場合、セルA94をコピーする必要がありますVBAは

If ws.Range("A93") = "LN:" & Then 

コード:LN:どのような文字が関係なく、 以下の通りですLN:

+0

でLike演算子を使用することですInstr' –

答えて

1

別のオプションは、 `あなたが使用できるワイルドカード

If ws.Range("A93") Like "LN:*" & Then 
2

あなたはVBA LEFT()文字列関数を使用することができます。

If Left(ws.range("A93").value, 3) = "LN:" Then 
の範囲の値の3つの左端の文字を取り、それを文字列に比較します

「LN:」