Video 82: Gộp dữ liệu nhiều cột vào một cột, (VBA code, how to multi columns data to one colume)

Video 82: Gộp dữ liệu nhiều cột vào một cột, (VBA code, how to multi columns data to one colume)

[HoaNguyen-zzcn]

Chúc mừng Anh đã cán mốc 1K. bài học rất hay

[chimzunzun]

Các videos của anh rất hữu ích, tính ứng dụng cao.
Mà em phép góp ý là âm thanh nhỏ quá ạ 😂
Tăng âm lượng gấp rưỡi gấp đôi để dễ nghe là tuyệt vời

[tuhocvbaexcel]

Code này nhé:
On Error Resume Next
Dim ten
Dim sohang
Dim socot
ten = Application.InputBox("Input Range", "Select Range", "Select range", Top:=200, Left:=100, Type:=8).Address
sohang = Range(ten).Rows.Count
socot = Range(ten).Columns.Count
Dim dd As String
dd = Split(ten, ":")(0)
Dim rn As String

rn = Application.InputBox("Select vitri", "Select vitri", "Select output", Type:=8).Address
Dim i As Integer
For i = 1 To socot
ActiveSheet.Range(dd).Offset(1, i - 1).Resize(sohang - 1, 1).Copy
* (sohang - 1) - (sohang - 1), 1).PasteSpecial xlPasteValues
* (sohang - 1) - (sohang - 1), 1).PasteSpecial xlPasteFormats
* (sohang - 1) - (sohang - 1), 0).Resize(sohang - 1, 1) = ActiveSheet.Range(dd).Offset(0, i - 1)
Next i
Range(rn).Select

[taiphuc]

E rất thích kênh của a. A cho e hỏi có cách nào biến văn bản thành file mp3 ko ạ

[samvu]

Anh ơi. Em có một bài toán như này: tìm dữ liệu ở sheet 1 không có sẽ tìm dữ liệu ở sheet 2, sheet 3, nếu sheet 1 có rồi thì sẽ ko cần tìm và lấy dữ liệu sở các sheet còn lại. Có công thức nào hữu hiệu cho bài toán này không Anh. Nhờ Anh hướng dẫn giúp em vs. Cảm ơn Anh