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 

Wie kann ich diese Zeile ändern:vba excel Teilstring suchen

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

-Code sollte Zelle A94, falls der Text in Zelle A93 beginnt mit kopieren: LN: unabhängig welche Zeichen folgen LN:

+0

Sie könnten verwenden verwenden ' Instr –

Antwort

1

Eine weitere Möglichkeit ist es, den Like-Operator mit einem Platzhalter

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

Sie können die VBA LEFT() String-Funktion verwenden:

If Left(ws.range("A93").value, 3) = "LN:" Then 

, dass die drei am weitesten links stehenden Zeichen des Bereichs des Wertes nehmen und es auf die Zeichenfolge „LN:“ vergleichen