Tham khảo Code của Anh SA_DQ về tìm LastCell
Nhờ các bạn chỉ hộ cách đặt tên vùng selected là MyRange
Xin cám ơn!
PHP:
'Find the last used Cell on a Worksheet:'
Sub FindLastCell()
Dim LastColumn As Integer
Dim LastRow As Long
Dim LastCell As Range
Dim LastCell1 As String
If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.'
LastRow = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
'Search for any entry, by searching backwards by Columns.'
LastColumn = Cells.Find(What:="*", After:=[A1], _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
Cells(LastRow, LastColumn).Select
'MsgBox Cells(LastRow, LastColumn).Address'
LastCell1 = Cells(LastRow, LastColumn).Address
'MsgBox (LastCell1)'
Range("A1:" & LastCell1).Select
'ActiveWorkbook.Names.Add Name:="MyRange", RefersToR1C1:="=Data!A1:E11"
End If
End Sub
Xin cám ơn!
Chỉnh sửa lần cuối bởi điều hành viên: