Cho em hỏi về đoạn code này nghĩa là gì ạ. em Cảm ơn ạ

[lasxd15492018]

Set Dest = shtDest.Range("b" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)

 

[befaint]

Sub CaiNayLaCaiGi()
Dim Dest as Range
Set Dest = shtDest.Range("B" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
shtDest.Select
Dest.Select
Msgbox Dest.Address
End Sub()

 

[lasxd15492018]

Sub CaiNayLaCaiGi()
Dim Dest as Range
Set Dest = shtDest.Range("B" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
shtDest.Select
Dest.Select
Msgbox Dest.Address
End Sub()

Dạ đây là code đầy đủ ạ. em không hiểu cái dòng mà em bôi đậm ạ
Sub MergeFilesExcel()

Dim path As String, ThisWB As String, lngFilecounter As Long
Dim wbDest As Workbook, shtDest As Worksheet, ws As Worksheet
Dim Filename As String, Wkb As Workbook
Dim CopyRng As Range, Dest As Range
Dim RowofCopySheet As Integer

RowofCopySheet = 2

ThisWB = ActiveWorkbook.Name

path = Application.InputBox("duong dan den forder")

Application.EnableEvents = False
Application.ScreenUpdating = False

Set shtDest = ActiveWorkbook.Sheets(1)
Filename = Dir(path & "\*.xls", vbNormal)
If Len(Filename) = 0 Then Exit Sub
Do Until Filename = vbNullString
If Not Filename = ThisWB Then

Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets("Total").Range("c14")
Set Dest = shtDest.Range("b" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
CopyRng.Copy Dest
Wkb.Close False

Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets("Total").Range("k12")
Set Dest = shtDest.Range("c" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
CopyRng.Copy Dest
Wkb.Close False

Set Wkb = Workbooks.Open(Filename:=path & "\" & Filename)
Set CopyRng = Wkb.Sheets("Total").Range("k14")
Set Dest = shtDest.Range("d" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row)
CopyRng.Copy Dest
Wkb.Close False
End If

Filename = Dir()
Loop

Range("A1").Select

Application.EnableEvents = True
Application.ScreenUpdating = True

MsgBox "Ket Thuc!"

End Sub

 

[befaint]

không hiểu

thì chép bài 2 vào chạy ==> Hiểu!!!!

 

[giaiphap]

thì chép bài 2 vào chạy ==> Hiểu!!!!

Anh làm khó hoài vậy? Cái đoạn đó đã không hiểu rồi mà anh thêm code vô rồi sao hiểu được.

 

[befaint]

Anh làm khó hoài vậy? Cái đoạn đó đã không hiểu rồi mà anh thêm code vô rồi sao hiểu được.

Thế em bó tay luôn.
Nghĩa ở mặt chữ luôn, nghĩa đen luôn.
----------------
shtDest.UsedRange.SpecialCells(xlCellTypeLastCell
== Sheet nào đó. vùng đã sử dụng.ô đặc biệt(ô cuối cùng).
.Row = trả về dòng
.Range("B" & dòng nào đó) = ô ở cột B, có dòng = dòng nào đó
....

 

[phulien1902]

Set Dest = shtDest.Range("b" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)

Bạn tìm hiểu bài viết dưới đây trước đã:
Những ghi chép về phương thức SpecialCells

 

[lasxd15492018]

Sub CaiNayLaCaiGi()
Dim Dest as Range
Set Dest = shtDest.Range("B" & shtDest.UsedRange.SpecialCells(xlCellTypeLastCell).Row + 1)
shtDest.Select
Dest.Select
Msgbox Dest.Address
End Sub()

code này em chạy bị lỗi ạ