Chuyển 2 cột "Doanh thu" và "VAT" (như sheet gốc) thành 1 cột "Số tiền" (như sheet đích) tương ứng với 2 hàng, các diễn giải cũng phải tương ứng (1 người xem)

[oishi]

Dear anh, chị trong diễn đàn Giải pháp excell,
Tôi đang gặp vướng mắc trong việc chuyển đổi cột và dòng trong kế toán, do lượng dữ liệu quá nhiều nên chưa biết xử lý thế nào. Mong anh chị giúp đỡ.
Xin chân thành cảm ơn!

 

[SA_DQ]

Bạn xài macro này:

Sub ChuyenThanh2Dong()
 Dim Arr(), Sh As Worksheet
 Dim J As Long, W As Long, Dm As Long, Col As Integer, Z As Integer
 
 Set Sh = Sheet1
 Arr() = Sh.[B2].CurrentRegion.Offset(1).Value
 Col = UBound(Arr(), 2)
 ReDim dArr(1 To 2 * UBound(Arr()), 1 To Col)
 For J = 1 To UBound(Arr())
    W = W + 1
    For Z = 1 To Col - 2
        dArr(W, Z) = Arr(J, Z)
    Next Z
    W = W + 1
    For Z = 1 To Col - 3
        dArr(W, Z) = Arr(J, Z)
    Next Z
    dArr(W, Col - 2) = Arr(J, Col - 1)
 Next J
 Sheet2.[A2].Resize(W, Col - 2).Value = dArr()
End Sub

 

[oishi]

Bạn xài macro này:

Sub ChuyenThanh2Dong()
Dim Arr(), Sh As Worksheet
Dim J As Long, W As Long, Dm As Long, Col As Integer, Z As Integer

Set Sh = Sheet1
Arr() = Sh.[B2].CurrentRegion.Offset(1).Value
Col = UBound(Arr(), 2)
ReDim dArr(1 To 2 * UBound(Arr()), 1 To Col)
For J = 1 To UBound(Arr())
    W = W + 1
    For Z = 1 To Col - 2
        dArr(W, Z) = Arr(J, Z)
    Next Z
    W = W + 1
    For Z = 1 To Col - 3
        dArr(W, Z) = Arr(J, Z)
    Next Z
    dArr(W, Col - 2) = Arr(J, Col - 1)
Next J
Sheet2.[A2].Resize(W, Col - 2).Value = dArr()
End Sub

Cái này xài sao không được nhỉ? Bác làm mẫu giúp em xem với?

 

[hongphuong1997]

Cái này sài sao không được nhỉ? Bác làm mẫu giúp em xem với?

Sao lại không được? Bác
SA_DQ
làm cho bạn mình thấy quá ngon rùi còn gì nữa
Tiền hàng và tiền thuế gộp chung vào 1 cột rồi mà

 

[oishi]

Sao lại không được? Bác
SA_DQ
làm cho bạn mình thấy quá ngon rùi còn gì nữa
Tiền hàng và tiền thuế gộp chung vào 1 cột rồi mà

Mình dùng cell 2010, add macro vào không thấy xi-nhê gì, bạn giúp mình làm trên file mẫu đã gửi nhé. Cảm ơn bạn nhiều.

 

[hongphuong1997]

Mình dùng cell 2010, add macro vào không thấy xi-nhê gì, bạn giúp mình làm trên file mẫu đã gửi nhé. Cảm ơn bạn nhiều.

hi hi.... mình đang gà mờ
Lại gặp bạn còn gà mờ hơn mình
Gọi mình bằng sư phụ đi mình hướng dẫn cho nhé

 

[oishi]

hi hi.... mình đang gà mờ
Lại gặp bạn còn gà mờ hơn mình
Gọi mình bằng sư phụ đi mình hướng dẫn cho nhé

Cám ơn bạn nhiều nhé, mình gà cell lắm. Sư phụ!

 

[ndu96081631]

Chuyển 2 cột "Doanh thu" và "VAT" (như sheet gốc) thành 1 cột "Số tiền" (như sheet đích) tương ứng với 2 hàng, các diễn giải cũng phải tương ứng

Chưa từng thấy cái tiêu đề nào kỳ cục như vậy đó ---> Đóng topic, rút kinh nghiệm lần sau