Re:split 함수 이용해서 좌표대로 특정값 입력하는 VBA를 짜고 있습니다.

[윤슬]

안녕하세요?

이미 말씀드렸듯이 텍스트 파일을 특정시트에 불러들인후 코딩하시면 쉽게 작업하실 수 있습니다.

아래는 첨부파일에 사용된 코드입니다.

Option Explicit

Sub Test()
Dim Rng As Range, c As Range
Dim Spl As Variant
Dim i As Integer
Dim i_Row As Long
Dim i_Col As Long
Dim Rst As Long

On Error Resume Next
Set Rng = Sheet1.Columns(1).SpecialCells(2, 2)

Sheet2.Range("b2:xfd1048576").ClearContents

For Each c In Rng
    Spl = Split(c.Value, " ")
    If Spl(0) = "ms" Then
        i = 1
    Else
        i = 0
    End If
       
    i_Row = Val(Replace(Spl(i + 1), Left(Spl(i + 1), 2), "")) + 1
    i_Col = Val(Replace(Spl(i), Left(Spl(i), 2), "")) + 1
    Rst = Val(Replace(Spl(i + 2), Left(Spl(i + 2), 2), ""))
   
    Sheet2.Cells(i_Row, i_Col).Value = Rst
Next c
On Error GoTo 0

End Sub

자세한 내용은 첨부파일을 참고로...

그럼 잘 해결되시길...   ^^*

======================================================================================

첨부파일

120901_좌표.xlsm

======================================================================================

[하늘아이]

정말 감사합니다.