Script ลบแถวที่ไม่ได้มีการกรอกข้อมูล
Posted: Sat Jan 07, 2017 12:49 am
เรียน อาจารย์ครับ
รบกวนขอสอบถามครับ ผมได้สร้างใบเสนอราคาขึ้นมา เนื่องจากใบเสนอราคามีโอกาสที่จะกรอกรายการมากน้อยต่างกัน
เลยได้มีการสร้างแถวเผื่อไว้ ดังนั้นหากรายการกรอกจริงในแถวมีไม่ครบทุกแถว จึงอยากลบแถวที่ไม่ได้กรอกข้อมูล(แถวว่าง)ออกเพื่อความสวยงามและถูกต้อง
เบื้องต้นผมได้ศึกษา Script ในบอร์ดและทดลองนำมาประยุกต์ใช้แล้วพบว่าไม่สามารถลบแถวว่างได้ครับ
ขอบคุณครับ
รบกวนขอสอบถามครับ ผมได้สร้างใบเสนอราคาขึ้นมา เนื่องจากใบเสนอราคามีโอกาสที่จะกรอกรายการมากน้อยต่างกัน
เลยได้มีการสร้างแถวเผื่อไว้ ดังนั้นหากรายการกรอกจริงในแถวมีไม่ครบทุกแถว จึงอยากลบแถวที่ไม่ได้กรอกข้อมูล(แถวว่าง)ออกเพื่อความสวยงามและถูกต้อง
เบื้องต้นผมได้ศึกษา Script ในบอร์ดและทดลองนำมาประยุกต์ใช้แล้วพบว่าไม่สามารถลบแถวว่างได้ครับ
Code: Select all
Option Explicit
Sub DelRow()
Dim r As Range
Dim i As Integer
With Worksheets("Template")
Set r = .Range(.Range("F12"), .Range("F111").End(xlUp))
End With
For i = r.Rows.Count To 1 Step -1
If r(i) = "" Then
r(i).EntireRow.Delete
End If
Next i
End Sub
ปรับ