Re:Re:Re:Re:Re:엑셀에서 숫자 오른쪽부터 나누기 질문

[윤슬]

안녕하세요?

그러셨군요...

아래 코드와 첨부파일을 참고로 결과를 확인해 보세요.

공급가액과 세액을 한칸에 하나씩 나열하는 코드입니다.

Option Explicit

Sub Test()
Dim Rng As Range, c As Range
Dim i As Long

On Error Resume Next
Application.ScreenUpdating = False

With ActiveSheet
    Set Rng = .Columns("o").SpecialCells(2, 1)
   
    For Each c In Rng
        c.Offset(, 2).Value = c.Value
        c.Offset(, 13).Value = c.Offset(, 1).Value
        c.Offset(, 23).Value = c + c.Offset(, 1).Value
               
        For i = 1 To Len(c.Value)
            c.Offset(, i + 12 - Len(c)).Value = Mid(c.Value, i, 1)
        Next i
               
        For i = 1 To Len(c.Offset(, 1).Value)
            c.Offset(, i + 23 - Len(c)).Value = Mid(c.Offset(, 1).Value, i, 1)
        Next i
               
        If c.NumberFormat = "-#" Then
            c.Offset(, 2).NumberFormat = "-#"
            c.Offset(, 13).NumberFormat = "-#"
               
            c.Offset(, 2).End(xlToRight).Offset(, -1).Value = "-"
            c.Offset(, 13).End(xlToRight).Offset(, -1).Value = "-"
        End If
    Next c
End With

Application.ScreenUpdating = True
On Error GoTo 0
End Sub

Sub Reset()
With ActiveSheet
    If .Range("q2") <> "" Then
        .Range(.Range("q2"), .Cells(Rows.Count, "al")).Clear
    End If
End With
End Sub

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

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

첨부파일

090820_7월세금계산서(발송용).xls

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

[바뻐]

처음부터 질문을 제대로 드렸어야 하는데... 암튼 감사합니다. 잘 쓸께요

[윤슬]

암튼 해결이 되신것 같아 다행입니다... 즐거운 오후 되시길... ^^*