đây bạn xem
Ý mình muốn là làm 1 lệnh ở dưới để mình đưa vào file của mình. Mình muốn nắm rõ dc lệnh này. Mình đang dùng nó để làm tiến độ. Và có cả 1000 cột như vậy cần cộng.
cái này mình viết bằng VBA mình mở File lên không hiểu gì luôn
Bạn vô sheet 1, kéo xuống dòng 600 sẽ thấy 1 lệnh gộp ở cuối
bạn cho cái sheet1 nó to ra như bình thường mình làm điền tự động cho nhé.
bạn xem code này nhé tại cái file của bạn linh tinh quá nên không kiểm tra được bạn kiểm tra đi
Sub chuyendulieu()
Dim arr, arr1, arr2
Dim a As Long, b As Long, c As Long, i As Long
c = Sheet1.Cells(8, 1000).End(xlToLeft).Column
arr = Sheet1.Range("B9").Resize(590, c).Value
a = UBound(arr, 1)
b = UBound(arr, 2)
ReDim arr1(1 To 1, 1 To b)
For i = 1 To a
For j = 10 To b
If arr(i, j) = 1 Then
arr1(1, j - 9) = arr(1, j - 9) & arr(i, 1)
End If
Next j
Next i
Sheet1.Range("K600").Resize(, b - 9).Value = arr1
End Sub
điễn đàn mình càng ngày càng có nhiều cao thủ bác, anh nhỉ
Nên vui hay nên buồn ?
