ติดปัญหาวิธีการคลุมเซลในกรณีที่มีสูตร

[namachi69]

สวัสดีครับ ทุกๆท่าน

ตอนนี้ผมลองหัดเขียน Macro แต่ติดปัญหาบางอย่างในการ คลุมเซลก่อนทำการ Copy
โดยผมนะเลือก selete ไปที่ E6 จากนั้น กด shift + Ctrl แล้วกดลง แต่ว่าเนื่องจาก คอลัมม์ E ได้ใส่สูตรไว้
จึงทำให้เวลาเลือกคลุมเซล นั้น เลยลงไปจนสุด ที่ E35
มีวิธีไหนบางครับที่ให้ Marcro มาหยุดตรงที่เซลนั้น แสดงค่า (H:6 - H:20)

ขอบคุณมากๆครับสำหรับคำแนะนำ

Testmacro1.xlsm

[snasui]

ลองตามนี้ครับ

1. คลิกขวาเซลล์ E6
2. เลือก Define Name > ช่อง Name คีย์คำว่า Total > ช่อง Refers to: คีย์สูตร =Sheet1!$E$6:INDEX(Sheet1!$E:$E,MATCH(9.99999999999999E+307,Sheet1!$E:$E)) > OK
3. ปรับ Code เป็นตามด้านล่าง

   Code: Select all

   Sub Macro1()
   '
   ' Macro1 Macro
   '
   
   '
       Range("Total").Select
       Selection.Copy
       Range("H6").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Application.CutCopyMode = False
   End Sub

[namachi69]

ขอบพระคุณมากครับอาจารย์ คนควน
แต่ผมสงสัยอยู่นิดนึงครับ ตรง MATCH(9.99999999999999E+307,Sheet1!$E:$E) อาจารย์ช่วยอธิบายได้ไหมครับ ว่า 9.99999999999999E+307 หมายถึง อะไรครับ

ขอบคุณครับ

ลองตามนี้ครับ

1. คลิกขวาเซลล์ E6
2. เลือก Define Name > ช่อง Name คีย์คำว่า Total > ช่อง Refers to: คีย์สูตร =Sheet1!$E$6:INDEX(Sheet1!$E:$E,MATCH(9.99999999999999E+307,Sheet1!$E:$E)) > OK
3. ปรับ Code เป็นตามด้านล่าง

   Code: Select all

   Sub Macro1()
   '
   ' Macro1 Macro
   '
   
   '
       Range("Total").Select
       Selection.Copy
       Range("H6").Select
       Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
           :=False, Transpose:=False
       Application.CutCopyMode = False
   End Sub

[snasui]

หมายถึงค่าตัวเลขที่ใหญ่ที่สุดที่สามารถคีย์ลงในเซลล์ได้ ปกติผมนำมาใช้ประกอบกับ Match หรือ Lookup เพื่อหาค่าตัวเลขสุดท้ายในช่วงข้อมูลที่กำหนดครับ

[namachi69]

ขอบพระคุณมากครับ อาจารย์ คนควน

หมายถึงค่าตัวเลขที่ใหญ่ที่สุดที่สามารถคีย์ลงในเซลล์ได้ ปกติผมนำมาใช้ประกอบกับ Match หรือ Lookup เพื่อหาค่าตัวเลขสุดท้ายในช่วงข้อมูลที่กำหนดครับ

[pongpang]

เรียน คุณคนควน
ขอเรียนถามเพิ่มเติมครับ ถ้าในกรณีที่ต้องการคัดลอกข้อมูลหลายคอลัมน์ ไม่ทราบว่า Range Name ต้องกำหนดอย่างไรครับ

[snasui]

สามารถปรับตำแหน่งที่ผมระบายสีไว้ในสูตรให้เป็นคอลัมน์ที่ต้องการครับ

=Sheet1!$E$6:INDEX(Sheet1!$E:$E,MATCH(9.99999999999999E+307,Sheet1!$E:$E))

[pongpang]

ขอบคุณ คุณคนควน มากครับ