Hi cả nhà , cho em hỏi nếu e chỉ muốn copy dòng đang chọn trong listbox thì e sẽ phải thay đổi những gì trong đoạn code này :
Dim Dt As DataObject, Tm, i, j
Set Dt = New DataObject
For i = 0 To Me.ListBox1.ListCount - 1
For j = 0 To Me.ListBox1.ColumnCount - 1
Tm = Tm & Me.ListBox1.List(i, j) &...