ช่วยแนะนำการ copy โดยใช้ VBA

[yodpao.b]

ช่วยแนะนำการ copy โดยใช้ VBA
เรียนท่านผู้รู้
ผมใช้ Code ดังนี้

Code: Select all

Sub Macro1()
    Range("B8:AV8").Select
    Selection.Copy
    Range("B17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

แต่เนื่องจากในบางครั้ง ข้อมูลเพิ่มต่อท้ายมาเรื่อย ผมต้องกลับมาแก้

Code: Select all

Range("B8:AV8").Select

นี้ทุกครั้ง
อยากจะได้ code ที่ สั่งให้มันไปหาตัวสุดท้าย แล้วสั่ง Copy แก้ไขอย่างไรดีครับ

[snasui]

อยากจะได้ code ที่ สั่งให้มันไปหาตัวสุดท้าย แล้วสั่ง Copy แก้ไขอย่างไรดีครับ

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

Code: Select all

Sub Macro1()
    Dim lastRow As Long
    lastRow = Range("B" & Rows.Count).End(xlUp).Row
    Range("B" & lastRow & ":AV" & lastRow).Select
    Selection.Copy
    Range("B17").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

[yodpao.b]

เรียนอาจารย์ครับ ใช้ได้แล้วครับ ขอเพิ่มอีกข้อนะครับ
ถ้าในกรณมีข้อมูลเพิ่มถึง เซล AZ
หัวข้อเพิ่ม ต้องมาแก้ code

Code: Select all

 Range("B" & lastRow & ":AV" & lastRow).Select 

เป็น

Code: Select all

 Range("B" & lastRow & ":AZ" & lastRow).Select 

เพราะในบางครั้ง หัวข้ออาจเพื่มขึ้นมา เลยไม่อยากแก้ Code บ่อย จะทำอย่าไรดีครับ

[snasui]

ลองดูตัวอย่างการปรับ Code ตามด้านล่างครับ

Code: Select all

Sub Macro1()
    Dim lastColumn As Integer
    Dim lastRow As Long
    lastColumn = Range("B6").End(xlToRight).Column
    lastRow = Range("B6").End(xlDown).Row
    If Range("B7") = "" Then lastRow = 7
    Range(Cells(lastRow, 2), Cells(lastRow, lastColumn)).Select
    '...Other code
End Sub

[yodpao.b]

ขอบคุณมากครับอาจารย์