Code VBA เลือกช่วงข้อมูลที่แถวไม่เท่ากับค่าว่าง

[prasertLasong]

สวัสดีครับ
ผมขออนุญาติสอบถามเรื่อง Code VBA หน่อยครับ
ผมต้องการ save ไฟล์เป็น PDF ทั้งหมด 5 ซีต ให้รวมเป็นไฟล์เดียวครับ
โดยในแต่ล่ะซีตนั้น ให้เลือกข้อมูล เฉพาะที่ไม่เท่ากับค่าว่าง เพราะจำนวนแถวของข้อมูลใน
แต่ล่ะซีตก่อนทำการบันทึกเป็น .PDF นั้น มีจำนวน แถวที่ไม่คงที่ เช่น Range("A1:L489").Select ข้อมูลอีกชุด อาจมีจำนวนแถวน้อยหรือมากกว่า "A1:L489" แต่ข้อมูล
ทั้งหมดจะเริ่มที่ A1:L.....ครับ

Code: Select all

Sub Macro7()
    Sheets("print P.1").Select
    Range("A1:L489").Select
    Sheets("print P.2").Select
    Range("A1:Q122").Select
    Sheets("P.3 Risk Register").Select
    Range("A1:H22").Select
    Sheets("print p.4").Select
    Range("A1:J780").Select
    Sheets("P5 กราฟ + ความคิดเห็น").Select
    Range("A1:M24").Select
    Sheets(Array("print P.1", "print P.2", "P.3 Risk Register", "print p.4", _
        "P5 กราฟ + ความคิดเห็น")).Select
    Sheets("print P.1").Activate
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        "C:\Users\Win10x64\Desktop\EX1.pdf", Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        False
End Sub

[snasui]

การ Save เป็นไฟล์เดียวให้ Loop เข้าไปเก็บค่าของทุกชีตที่เข้าเงื่อนไขแล้วนำข้อมูลทั้งหมดที่ได้มาไปวางในไฟล์เปล่าแล้ว Save เป็น PDF ไฟล์แทนจะสะดวกกว่าครับ

ดูตัวอย่างการ Loop ได้ที่นี่ครับ https://youtu.be/e7quHzzLO7g?list=PLA_4 ... yTKt&t=443

[prasertLasong]

ขอขอบคุณครับ เดี๋ยวผมจำเข้าไปศึกษาเพิ่มเติมดูครับ