Snasui Excel Forum

1. คลิกเซลล์ A3 > เข้าเมนู Data > Filter
2. คลิก Drowdown ที่ A3 > ปลดเครื่องหมายที่ (Select All) แล้วเลือก (Blanks)
3. คลิก Drowdown ที่ D3 > ปลดเครื่องหมายที่ (Select All) แล้วเลือก 0
4. ลากเมาส์คลุม A5:An (n คือเซลล์สุดท้ายที่มีข้อมูลจากผลลัพธ์จากการ Filter) > กดแป้น F5 > Special > Visible cells only > OK
5. คลิกขวาผลลัพธ์ที่ได้ > Delete row > OK
6. เข้าเมนู Data > Clear > Filter เพื่อปลดการ Filter และยกเลิก Auto Filter

snasui wrote: Mon Nov 04, 2019 8:36 pm Filter ก่อนแล้วค่อยลบครับ

ขั้นตอน

1. คลิกเซลล์ A3 > เข้าเมนู Data > Filter
2. คลิก Drowdown ที่ A3 > ปลดเครื่องหมายที่ (Select All) แล้วเลือก (Blanks)
3. คลิก Drowdown ที่ D3 > ปลดเครื่องหมายที่ (Select All) แล้วเลือก 0
4. ลากเมาส์คลุม A5:An (n คือเซลล์สุดท้ายที่มีข้อมูลจากผลลัพธ์จากการ Filter) > กดแป้น F5 > Special > Visible cells only > OK
5. คลิกขวาผลลัพธ์ที่ได้ > Delete row > OK
6. เข้าเมนู Data > Clear > Filter เพื่อปลดการ Filter และยกเลิก Auto Filter

อ้อ...อันนี้ไม่ได้อัตโนมัตินะครับ ถ้าจะอัตโนมัติก็สามารถนำขั้นตอนนี้ไป Record Macro อีกที ไม่เช่นนั้นก็ต้องใช้ VBA ครับ

snasui wrote: Mon Nov 04, 2019 9:35 pm ความต้องการคือ ต้องการลบข้อมูลในคอลัมน์ B:D เท่านั้น คอลัมน์ A ไม่เกี่ยวข้องใช่หรือไม่ครับ

ตามที่ถามมาสามารถเขียนสูตรได้แต่จะต้องเข้าใจความต้องการชัดเจน ลองทำตัวอย่างมาสักเล็กน้อย ทำตัวอย่างคำตอบมาด้วย จะได้เข้าใจได้ทันทีครับ

1. คลุม A4:A271 > กดแป้น F5 > Special > Blanks > OK
2. คีย์เครื่องหมาย = ตามด้วยกดปุ่มลูกศรชี้ขึ้นด้านบน > กดแป้น Ctrl ค้างไว้แล้วตามด้วย Enter จะเป็นการเติมค่าให้เหมือนกับค่าที่อยู่ด้านบน
3. คลิกขวาที่หัวคอลัมน์ A > Copy > คลิกขวาซ้ำอีกรอบ > Paste Special > Valus เพื่อวางให้เป็นค่าคงที่
4. ทำการ Filter โดยเลือกค่า 0 ในคอลัมน์ D แล้วลบทิ้งทั้งบรรทัดตามวิธีการในโพสต์ #3 ครับ

snasui wrote: Mon Nov 04, 2019 10:18 pm วิธีการทำให้เซลล์ว่างในคอลัมน์ A เหมือนกับค่าที่อยู่ด้านบนสามารถทำตามด้านล่างครับ

1. คลุม A4:A271 > กดแป้น F5 > Special > Blanks > OK
2. คีย์เครื่องหมาย = ตามด้วยกดปุ่มลูกศรชี้ขึ้นด้านบน > กดแป้น Ctrl ค้างไว้แล้วตามด้วย Enter จะเป็นการเติมค่าให้เหมือนกับค่าที่อยู่ด้านบน
3. คลิกขวาที่หัวคอลัมน์ A > Copy > คลิกขวาซ้ำอีกรอบ > Paste Special > Valus เพื่อวางให้เป็นค่าคงที่
4. ทำการ Filter โดยเลือกค่า 0 ในคอลัมน์ D แล้วลบทิ้งทั้งบรรทัดตามวิธีการในโพสต์ #3 ครับ

snasui wrote: Mon Nov 04, 2019 10:18 pm วิธีการทำให้เซลล์ว่างในคอลัมน์ A เหมือนกับค่าที่อยู่ด้านบนสามารถทำตามด้านล่างครับ

1. คลุม A4:A271 > กดแป้น F5 > Special > Blanks > OK
2. คีย์เครื่องหมาย = ตามด้วยกดปุ่มลูกศรชี้ขึ้นด้านบน > กดแป้น Ctrl ค้างไว้แล้วตามด้วย Enter จะเป็นการเติมค่าให้เหมือนกับค่าที่อยู่ด้านบน
3. คลิกขวาที่หัวคอลัมน์ A > Copy > คลิกขวาซ้ำอีกรอบ > Paste Special > Valus เพื่อวางให้เป็นค่าคงที่
4. ทำการ Filter โดยเลือกค่า 0 ในคอลัมน์ D แล้วลบทิ้งทั้งบรรทัดตามวิธีการในโพสต์ #3 ครับ

puriwutpokin wrote: Tue Nov 05, 2019 11:13 am ลองปรับเป็นตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
    Next i
End Sub

pro602 wrote: Tue Nov 05, 2019 2:37 pm

puriwutpokin wrote: Tue Nov 05, 2019 11:13 am ลองปรับเป็นตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
    Next i
End Sub

ช่วยแนะนำการนำ code ที่แนบมาให้ผมหน่อยครับต้องเอาไปใส่สูตรตรงไหนครับ ตัวอย่างที่ผมแนบมาให้ผมทำโดยการ Record Macro ถ้าจะปรับสูตรเพิ่มเติมช่วยแนะนำการเข้าไปปรับให้ผมหน่อยครับ

puriwutpokin wrote: Tue Nov 05, 2019 3:15 pm

pro602 wrote: Tue Nov 05, 2019 2:37 pm

puriwutpokin wrote: Tue Nov 05, 2019 11:13 am ลองปรับเป็นตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then Cells(i, 1).EntireRow.Delete
    Next i
End Sub

ช่วยแนะนำการนำ code ที่แนบมาให้ผมหน่อยครับต้องเอาไปใส่สูตรตรงไหนครับ ตัวอย่างที่ผมแนบมาให้ผมทำโดยการ Record Macro ถ้าจะปรับสูตรเพิ่มเติมช่วยแนะนำการเข้าไปปรับให้ผมหน่อยครับ

ใส่แทนโค้ดเดิม ที่ Record ครับ

puriwutpokin wrote: Tue Nov 05, 2019 6:00 pm ปรับตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 Then​
        Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then 
        Cells(i+1, 1).Value = Cells(i, 1).Value
        Cells(i, 1).EntireRow.Delete
    Next i
End Sub
[/quote]

แก้ไขครับ   :roll: 
[code]Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then
        Cells(i + 1, 1).Value = Cells(i, 1).Value
        Cells(i, 1).EntireRow.Delete
        ElseIf Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then
        Cells(i, 1).EntireRow.Delete
End If
    Next i
End Sub

puriwutpokin wrote: Tue Nov 05, 2019 7:35 pm

puriwutpokin wrote: Tue Nov 05, 2019 6:00 pm ปรับตามนี้ครับ

Code: Select all

Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 Then​
        Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then 
        Cells(i+1, 1).Value = Cells(i, 1).Value
        Cells(i, 1).EntireRow.Delete
    Next i
End Sub
[/quote]

แก้ไขครับ   :roll: 
[code]Sub Macro1()
    Dim finalrow As Long
    Dim i As Long
    finalrow = Cells(Rows.Count, 2).End(xlUp).Row
    For i = finalrow To 4 Step -1
        If Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then
        Cells(i + 1, 1).Value = Cells(i, 1).Value
        Cells(i, 1).EntireRow.Delete
        ElseIf Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then
        Cells(i, 1).EntireRow.Delete
End If
    Next i
End Sub

-ขอบคุณครับท่าน"puriwutpokin"สำหรับ Code ที่ให้ผมมา ได้ผลลัพธ์ตรงตามที่ต้องการในหน้าเดียวเลยครับ ถ้าไม่เป็นการรบกวนท่าน"puriwutpokin" จะขอรบกวนท่านช่วยอธิบายความหมายใน Code เพื่อเป็นวิทยาทานให้ผมได้นำไปศึกษาและทำความเข้าใจต่อยอดในหลักการเขียน Code VBA ตามที่ท่านได้แนะนำมาให้กับผมหน่อยครับ....ซึ่ง Step ต่อไปผมก็เขียนรายงานสรุปจ่ายวัสดุแยกออกเป็นแต่ล่ะ Section ต่อไปครับ
sub Macro1()
Dim finalrow As Long....หมายถึง
Dim i As Long....หมายถึง
finalrow = Cells(Rows.Count, 2).End(xlUp).Row....หมายถึง
For i = finalrow To 4 Step -1....หมายถึง
If Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then....หมายถึง
Cells(i + 1, 1).Value = Cells(i, 1).Value....หมายถึง
Cells(i, 1).EntireRow.Delete....หมายถึง
ElseIf Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then....หมายถึง
Cells(i, 1).EntireRow.Delete....หมายถึง
End If....หมายถึง
Next i....หมายถึง
End Sub

Dim finalrow As Long....หมายถึง >> การประกาศตัวแปร finalrow ที่เป็นจำนวนเต็มที่มีค่า ระหว่าง (2,147,483,647) to 2,147,483,647 ในที่นี้ให้ finalrow เป็นจำนวนสุดท้ายของข้อมูลนี้
Dim i As Long....หมายถึง >> เช่นเดียวกับ อันแรก แต่เป็นตัวแปร เริ่มค่าแรก
finalrow = Cells(Rows.Count, 2).End(xlUp).Row....หมายถึง >> ตามที่กำหนดตัวแปรสุดท้ายตามข้อแรก ให้เท่ากับ Cells(Rows.Count, 2).End(xlUp).Row ที่ได้จากค่าสุดท้ายจากคอลัมน์ที่ 2
For i = finalrow To 4 Step -1....หมายถึง >> เป็นคำสั่งวนลูปในรูปของ For For i = finalrow เป็นเริ่มค่าแรกที่บรรทัดสุดท้ายของข้อมูล จนไปถึง 4 โดย ลบไปที่ละ 1 Step ขึ้นบน
If Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then....หมายถึง >> คือเงื่อนไข If หรือ ถ้า Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then หรือ ถ้าที่เซล คอลัมน์ที่ 4 ตำแหน่งแถวที่ i มีค่าเท่ากับศูนย์ และ เซล คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ไม่เท่ากับค่าว่าง ให้ทำดังต่อไปนี้
Cells(i + 1, 1).Value = Cells(i, 1).Value....หมายถึง >> จากด้านบน ทำตังนี้ คือให้เอาค่าที่ ตำแหน่ง เซลที่ คอลัมน์ที่ 1 ตำแหน่งแถวที่ i บวกค่าลงไป 1 บรรทัด ให้เท่ากับค่า เซลที่ คอลัมน์ที่ 1 ตำแหน่งแถวที่ i
Cells(i, 1).EntireRow.Delete....หมายถึง >> คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ให้ลบบรรทัด i ทั้งแถวแล้วยกบรรทัดล่างขึ้นไป
ElseIf Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then....หมายถึง >> ถ้าคำสั่งก่อนหน้านี้ไม่จริงให้ใช้คำสั่งนี้แทน คือ ถ้าที่เซล คอลัมน์ที่ 4 ตำแหน่งแถวที่ i มีค่าเท่ากับศูนย์ และ เซล คอลัมน์ที่ 1 ตำแหน่งแถวที่ i เท่ากับค่าว่าง ให้ทำดังต่อไปนี้
Cells(i, 1).EntireRow.Delete....หมายถึง >> คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ให้ลบบรรทัด i ทั้งแถวแล้วยกบรรทัดล่างขึ้นไป
End If....หมายถึง >> คือการจบ 1 Loop
Next i....หมายถึง >> ให้ Loop เลขต่อไปครับ ประมาณนี้ ลองศึกษาเพิ่มเติมได้จากเว็บนี้ ที่มีการถามกันนะครับ
End Sub

puriwutpokin wrote: Tue Nov 05, 2019 10:23 pm

Dim finalrow As Long....หมายถึง >> การประกาศตัวแปร finalrow ที่เป็นจำนวนเต็มที่มีค่า ระหว่าง (2,147,483,647) to 2,147,483,647 ในที่นี้ให้ finalrow เป็นจำนวนสุดท้ายของข้อมูลนี้
Dim i As Long....หมายถึง >> เช่นเดียวกับ อันแรก แต่เป็นตัวแปร เริ่มค่าแรก
finalrow = Cells(Rows.Count, 2).End(xlUp).Row....หมายถึง >> ตามที่กำหนดตัวแปรสุดท้ายตามข้อแรก ให้เท่ากับ Cells(Rows.Count, 2).End(xlUp).Row ที่ได้จากค่าสุดท้ายจากคอลัมน์ที่ 2
For i = finalrow To 4 Step -1....หมายถึง >> เป็นคำสั่งวนลูปในรูปของ For For i = finalrow เป็นเริ่มค่าแรกที่บรรทัดสุดท้ายของข้อมูล จนไปถึง 4 โดย ลบไปที่ละ 1 Step ขึ้นบน
If Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then....หมายถึง >> คือเงื่อนไข If หรือ ถ้า Cells(i, 4).Value = 0 And Cells(i, 1).Value <> "" Then หรือ ถ้าที่เซล คอลัมน์ที่ 4 ตำแหน่งแถวที่ i มีค่าเท่ากับศูนย์ และ เซล คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ไม่เท่ากับค่าว่าง ให้ทำดังต่อไปนี้
Cells(i + 1, 1).Value = Cells(i, 1).Value....หมายถึง >> จากด้านบน ทำตังนี้ คือให้เอาค่าที่ ตำแหน่ง เซลที่ คอลัมน์ที่ 1 ตำแหน่งแถวที่ i บวกค่าลงไป 1 บรรทัด ให้เท่ากับค่า เซลที่ คอลัมน์ที่ 1 ตำแหน่งแถวที่ i
Cells(i, 1).EntireRow.Delete....หมายถึง >> คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ให้ลบบรรทัด i ทั้งแถวแล้วยกบรรทัดล่างขึ้นไป
ElseIf Cells(i, 4).Value = 0 And Cells(i, 1).Value = "" Then....หมายถึง >> ถ้าคำสั่งก่อนหน้านี้ไม่จริงให้ใช้คำสั่งนี้แทน คือ ถ้าที่เซล คอลัมน์ที่ 4 ตำแหน่งแถวที่ i มีค่าเท่ากับศูนย์ และ เซล คอลัมน์ที่ 1 ตำแหน่งแถวที่ i เท่ากับค่าว่าง ให้ทำดังต่อไปนี้
Cells(i, 1).EntireRow.Delete....หมายถึง >> คอลัมน์ที่ 1 ตำแหน่งแถวที่ i ให้ลบบรรทัด i ทั้งแถวแล้วยกบรรทัดล่างขึ้นไป
End If....หมายถึง >> คือการจบ 1 Loop
Next i....หมายถึง >> ให้ Loop เลขต่อไปครับ ประมาณนี้ ลองศึกษาเพิ่มเติมได้จากเว็บนี้ ที่มีการถามกันนะครับ
End Sub