루프 마지막 문자 삭제

Question

VBA에서 범위를 반복하고 모든 셀의 텍스트의 마지막 문자를 삭제하려고합니다. 다음과 같이

나는 셀에 텍스트의 마지막 문자를 삭제하는 코드를 이해 : 을 MyString = 왼쪽 (mystring에, 렌 (mystring에) - 1) 나는 이것이에서 작동하도록 노력하고 있어요 그러나

for 루프와 난 그냥 오류 메시지 개체가 필요합니다. 그것의 아마도 뭔가 분명 나는 실종입니다.

Dim rngh As Range, cellh As Range 
Dim myString As String 
Set rngh = Range("H1:H500") 
For Each cellh In rngh 
    myString = cellh.Text 
    myString = Left(myString, Len(myString) - 1) 
Next cellh 

감사 :

여기 For 루프 내 코드입니다.

Answer 1

가 느려집니다 나는 한 번에는 .text 또는 루프 하나 개의 셀을 사용하지 것이다 - 배열을 사용하십시오 :

Dim vData 
Dim n      As Long 
vData = Range("H1:H500").Value 
For n = 1 To UBound(vData, 1) 
    If Len(vData(n, 1)) <> 0 Then vData(n, 1) = Left$(vData(n, 1), Len(vData(n, 1)) - 1) 
Next n 
Range("H1:H500").Value = vData 

예를 들면.

Answer 2

설정 라인에 오류가 있습니다. 나는

Set rngh = Range("H1:H500")

해야한다고 생각하지만 빈 문자열을 단축하려고 할 때 예외가있을 것입니다. 그것은이 작업을 수행 할 수 있다면 당신은 시도

myString = cellh.Text 
If Len(myString) > 0 Then 
    myString = Left(myString, Len(myString) - 1) 
End If 

Answer 3

처럼 .. 다음 코드

Private Sub Workbook_Open() 
    Dim rngh As Range, cellh As Range 
    Dim myString As String 
    Set rngh = Range("H1:H500") 
    For Each cellh In rngh 
     If Not IsEmpty(cellh) Then 
      myString = cellh.Text 
      myString = Left(myString, Len(myString) - 1) 
      cellh.Value = myString 
     End If 
    Next cellh 

뭔가를 확인해야합니다