รบกวนแนะนำสุตรหรือ code VBA เพิ่มข้อมูลใน blank cell

[natthaporn]

ผลลัพธ์ที่ต้องการ
No No
AA1 AA1
AA1
AA2 AA2
AA2
AA2
AA2
AA8 AA8
AA10 AA10
AA10
AA10
AA13 AA13

ดิฉันต้องการใส่ข้อมูลใน row ที่ว่าง ตามข้อมูลของ row ด้านบนตาม cell ที่ว่างนั้นค่ะ
รบกวนแนะนำด้วยค่ะ จะเป็นสูตรหรือเป็น excel VBA ก็ได้ค่ะ
ขอบคุณมากค่ะ

[rich37]

Code: Select all

Sub Filldown()
 Range("A2").End(xlDown).Offset(1, 0).Select
 Selection.Filldown
End Sub

Code จะเติมทีละ 1 ช่องนะครับ

[natthaporn]

ขอบคุณมากค่ะ สำหรับ code ดิฉันลองกด F8 run code ดู ได้ผลลัพธ์ตามที่ต้องการ แต่ติดอยู่ตรงที่ข้อมูล copy ลงไปเรื่อย ๆ แบบไม่มีที่สิ้นสุดค่ะ ดิฉันต้องกำหนด code เช็คค่าสิ้นสุดอย่างไรค่ะ ใน file จริงจะมี column B ที่สามารถระบุเป็น reference ของจุดสิ้นสุดได้ แจ่ดิฉันจะขอรบกวนเป็น dynamic range เพราะจะมีการเพิ่มข้อมูลที่ column B ไปเรื่อย ๆค่ะ
ขอบคุณค่ะ

[puriwutpokin]

สำหรับการ VBA ต้องเขียนเองมาก่อนตามกฏของบอร์ดครับ
เบื้องต้นใช้ฟังก์ชั่นเครื่องมือ Go To มาช่วยได้ครับ โดยเลือกช่วงข้อมูล
แล้ว กด F5 แล้วทำตามรูปภาพครับ แล้วกด เครื่องหมาย = และ ลูกศร ชี้ขึ้น แล้วกด Crtl+Enter
หลังจากนั้นคัดลอกข้อมูลทั้งหมด แล้วว่างเป็นค่า ครับ

[natthaporn]

ขอบคุณค่ะ ดิฉันลองเข้าไปค้นหาดูจาก web อื่นแล้วนำมาปรับปรุงใช้ และได้ผลตามที่ต้องการแล้วค่ะ ท่านใดมีคำแนะนำเพิ่มเติมรบกวนแนะนำด้วยค่ะ

Code: Select all

Sub Filldown()
    For Each Line In Sheet1.Range("B2:B" & Sheet1.Range("B" & Rows.Count).End(xlUp).Row)
    If Sheet1.Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Sheet1.Range("A2").End(xlDown).Offset(1, 0).Select
       Selection.Filldown
    End If
    Next Line
End Sub

[puriwutpokin]

โค้ดนี้สูตรยังไม่สมบูรณ์ครับ ถ้าไม่มีค่าที่คอลัมน์ B ก็จะไม่ทำงานครับ

[rich37]

Code: Select all

Sub Filldown()
    If Range("A2").End(xlDown).Offset(1, 1).Value = "" Then
    Else
       Range("A2").End(xlDown).Offset(1, 0).Filldown
    End If
End Sub

ลอง Code นี้ดูครับ

[natthaporn]

ดิฉันลองลบข้อมูลที่ column B ออก แล้วลองใช้ code ตามด้านบนที่ลองแก้ไขดู และตามที่คุณ rich37 แนะนะ ก็ไม่ทำงานจริง ๆ ด้วยค่ะ รบกวนทุกท่านแนะนำด้วยค่ะ ดิฉันได้พยายามลองปรับปรุงดูแต่ยังไม่สำเร็จค่ะ
ขอบคุณค่ะ

[snasui]

แนบไฟล์ที่ได้เขียน Code เองมาแล้วด้วยจะได้ช่วยตอบต่อไปจากนั้นครับ

[natthaporn]

รบกวนอาจารย์ช่วยแนะนำ code ตาม file แนบด้วยค่ะ
ขอบคุณค่ะ

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

With Sheet1
    For Each r In .Range("a2", .Range("a" & .Rows.Count).End(xlUp))
        If r.Value = "" Then
            r.Value = r.End(xlUp).Value
        End If
    Next r
End With

[natthaporn]

ได้ผลลัพธ์ตามที่ต้องการแล้วค่ะ ขอขอบคุณอาจารย์และทุกท่านนะคะ ที่ให้คำแนะนำทีดีมาก ๆ เลยคะ ไม่ว่าจะเป็นเรื่องการใช้ Go To และการใช้ code VBA
ขอบคุณค่ะ