การเติมตัวเลขที่กำหนดในเซลล์ว่าง

[tananpong]

สวัสดีครับ ขออนุญาตสอบถามวิธีการเติมตัวเลขที่กำหนดในเซลล์ว่าง โดยเติมตัวเลข 2 ในเซลล์ถัดลงมาหนึ่งเซลล์ และเติมตัวเลข 3 ถัดลงมาอีกสองเซลล์ครับ

Code: Select all

Sub Macro1()
Dim X As Single, Y As Single
For X = 5 To 19
    If Cells(X, 3).Value = 0 Then
        For Y = 2 To 3
            Cells(X, 3).Value = Y
        Next Y
    End If
Next X
End Sub

[Bo_ry]

แบบนี้มั้ย

Code: Select all

Sub Macro1()
Dim X As Single
For X = 5 To 19
    If Cells(X, 1).Value = "2 3" Then
        Cells(X, 1).Offset(1) = 2
        Cells(X, 1).Offset(2) = 3
    End If
Next X
End Sub

หรือ

Code: Select all

Sub Macro1()
Dim X As Single, Y As Single
For X = 5 To 19
    If Cells(X, 1).Value = 0 Then
        Cells(X, 1) = 2 + Y
        Y = (Y + 1) Mod 2
    End If
Next X
End Sub

[snasui]

แถมกรณีต้องการใช้ประโยชน์จากเซลล์ที่มีวรรคแทรกเพื่อจะแบ่งค่าไปวางในแต่ละเซลล์

Code: Select all

Dim r As Range
With Worksheets("Sheet1")
    For Each r In .Range("a5", .Range("a" & .Rows.Count).End(xlUp))
        If InStr(r.Value, " ") Then
            r.Offset(1, 0).Resize(2).Value = _
                Application.Transpose(VBA.Split(r.Value, " "))
        End If
    Next r
End With

[tananpong]

ทำได้แล้ว ขอบพระคุณครับ