Excel Forum

Posted: **Fri Sep 29, 2023 11:35 am**

รบกวนทุกท่านครับ ผม record macro มาหากต้องการให้มันเริ่มคำนวนถึง row สุดท้ายทีมีข้อมูลแก้ยังไงได้ครับ

Sub Macro1()
Worksheets("BO_DE_OUTS(INDX_LNBR)").Select

Range("Z8").End(xlDown).Select
ActiveCell.FormulaR1C1 = "=XLOOKUP(@C[-23],CUST!C[-8],CUST!C[-15])"

End Sub
ถ้าผมต้องการให้มัน auto ไม่ใช่จำนวนแค่ 359 แต่อาจเป็น 400 หรือ 500 แก้ไขยังไงครับ

Posted: **Fri Sep 29, 2023 7:29 pm**

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

Code: Select all

Sub Macro1()
    With Worksheets("BO_DE_OUTS(INDX_LNBR)") '.Select
'     Range("Z8").End(xlDown).Select
'    ActiveCell.FormulaR1C1 = "=XLOOKUP(@C[-23],CUST!C[-8],CUST!C[-15])"
    .Range("y8", .Range("x" & .Rows.Count).End(xlUp)).Offset(0, 1).Formula = _
        "=XLOOKUP(@C:C,CUST!R:R,CUST!K:K)"
    End With
End Sub

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

Excel Forum

ิvba คำนวน row แรกถึง Row สุดท้าย หากข้อมูลแต่ละรอบไม่เท่ากัน

ิvba คำนวน row แรกถึง Row สุดท้าย หากข้อมูลแต่ละรอบไม่เท่ากัน

Re: ิvba คำนวน row แรกถึง Row สุดท้าย หากข้อมูลแต่ละรอบไม่เท่ากัน