Bạn muốn nhận kết quả bằng hình ảnh hay là gợi ý.
Bác chỉ em cách làm trong excel đi, chứ ảnh em để minh họa thôi
Vậy bạn đưa cái file của bạn lên.Mình viết code vào đấy.
Ví dụ file Thống kê thép này đi bác, nhờ bác viết Code chuyển dữ liệu vào 2 cột A,B giúp em với.
Cảm ơn Chị nhiều !!
Chuyển như thế nào bạn ghi giải thích ra chứ.
Đây nhé
Sub gopdulieu()
Dim a As Long, b As Long, c As Long, i As Long, lr As Long, lc As Long, j As Long
Dim arr, arr1
With Sheet1
lr = .UsedRange.Rows.Count
lc = .UsedRange.Columns.Count
arr = .Range("C1").Resize(lr, lc - 2).Value
ReDim arr1(1 To lr * lc, 1 To 2)
For i = 1 To lr
For j = 1 To lc - 2 Step 2
If arr(i, j) <> Empty Then
a = a + 1
arr1(a, 1) = arr(i, j)
arr1(a, 2) = arr(i, j + 1)
Else
exit for
End If
Next j
Next i
b = .Range("A" & Rows.Count).End(xlUp).Row + 1
.Range("a" & b).Resize(b, 2).Value = arr1
msgbox "da xong"
End With
End SubSau dòng:
b = .Range("A" & Rows.Count).End(xlUp).Row + 1 .Range("C1").Resize(lr, lc - 2).ClearContents
