Excel 2010 셀에 문자열 쓰기

StackOverflow https://stackoverflow.com//questions/25070278

  •  26-12-2019
  •  | 
  •  

문제

자세한 설명을 드리고 싶지만 완전히 해결되지 않은 2년 전의 이 질문에서 관련된 모든 내용이 이미 언급되었습니다.

Excel에서 셀에 문자열 쓰기

내 프로그램은 가능한 한 간단합니다.

`Sub separate()
Dim stri As String
Dim i As Long
stri = Sheets("HEXDUMP").Cells(1, 5).Text
For i = 0 To (Len(stri) / 4)
    Sheets("HEXDUMP").Cells(i, 1).Value = Mid(stri, ((i * 2) + 1), 2)
    Sheets("HEXDUMP").Cells(i, 2).Value = Mid(stri, ((i * 2) + 3), 2)
Next i
End Sub`

내가 원하는 것은 문자열을 가져와 각각 두 문자의 셀로 나누는 것입니다.물론 무엇을 하든 셀에 쓰지 않는다는 점을 제외하면 모든 것이 완벽하게 작동합니다.보호 해제를 시도했습니다. .text를 시도했습니다. 이름을 다시 지정하여 새 시트를 만들어 보았습니다.이는 Excel의 버그이며 이 시점에서 제가 원하는 것은 해결 방법뿐입니다.

도움이 되었습니까?

해결책

코드에 오류가 있습니다.

을 위한 i = 0, 즉.루프의 첫 번째 반복에서 다음 코드는 오류를 발생시킵니다.

... .Cells(i, 1) ...
... .Cells(i, 2) ...

~처럼 0행은 없어요.다음으로 변경하세요.

... .Cells(i + 1, 1) ...
... .Cells(i + 1, 2) ...

그리고 그것은 작동할 것이다.정확히 원하는 것인지는 확실하지 않지만 적어도 오류는 발생하지 않습니다.

라이센스 : CC-BY-SA ~와 함께 속성
제휴하지 않습니다 StackOverflow
scroll top