Copy từ bảng 1 sang bảng 2 có điều kiện. (1 người xem)

[madutn]

EM có đọc mấy bài nhưng gà quá không hiểu được,


Em muốn chuyển bảng từ file excel 1 sang file excel 2 tự động có điều kiện

Cụ thể là file 1 em có 2 cột 4 dòng theo thứ tự a,b,c,d,e,f,l,k sang cột 2 1 dòng 1 cột ,1,2,3,4,5,6,7,8,


Em có minh họa trong file đính kèm , anh chị nào có cách giúp e với , nếu có nguồn cho em nghiên cứu thêm thì càng tốt

Đa tạ !

 

[alodie123]

Sub test()
Dim k As Integer, i As Variant
sarr = [b6].Resize(4, 2)
c = UBound(sarr, 1) * UBound(sarr, 2)
ReDim arr(1 To c) As String
For Each i In sarr
k = k + 1
arr(k) = i
Next i
[i4].Resize(c, 1) = Application.WorksheetFunction.Transpose(arr)
End Sub

 

[hoamattroicoi]

Bạn test thử với code này nhé :

Sub Test1()
Dim clls As Range
Dim Rng As Range
Set Rng = Range("B6:C9")
k = 3
For Each clls In Rng
    k = k + 1
    Cells(k, 10) = clls.Value
Next
End Sub