Công thức nào để chuyển định khoản nhiều nợ - nhiều có về 1 nợ nhiều có... (3 người xem)

[vuha]

Tôi có file đính kèm muốn nhờ các bạn chỉ giùm, lưu ý: TK nợ và TK có của 1 chứng từ được xếp theo thứ tự TK nợ trước, TK có sau và TK nợ hoặc TK có nếu bị trùng thì chỉ rút lại thành 1 dòng trên cột TK. Mong các bạn chỉ giùm. Thanks.

 

[Po_Pikachu]

Đây là code để chạy vấn đề của bạn.

Sub chay()
k = 3
For i = 3 To [A65000].End(xlUp).Row
For j = 2 To 3
    Cells(k, "G") = Cells(i, "A")
    Cells(k, "H") = Cells(i, j)
    k = k + 1
Next
Next
[I2:J2] = [G2:H2].Value
Range("G2:H" & [H65000].End(xlUp).Row).AdvancedFilter 2, _
CopyToRange:=Range("I2:J2"), Unique:=True
Range("G3:H" & [H65000].End(xlUp).Row).ClearContents
Range("I3:J" & [J65000].End(xlUp).Row).Cut
[G3].Select
ActiveSheet.Paste
[I2:J2].ClearContents
End Sub

Thêm code này phòng khi mọi người bảo dùng For...next chậm! hi hihihi

Sub ay()
iRow = [A65000].End(xlUp).Row
[I2:J2] = [G2:H2].Value
Range("A3:A" & iRow).Copy
[G3].PasteSpecial
Range("G" & iRow + 1).PasteSpecial
Range("B3:B" & iRow).Copy
[H3].PasteSpecial
Range("C3:C" & iRow).Copy
Range("H" & iRow + 1).PasteSpecial
 
Range("G2:H" & [H65000].End(xlUp).Row).AdvancedFilter 2, _
CopyToRange:=Range("I2:J2"), Unique:=True
Range("G3:H" & [H65000].End(xlUp).Row).ClearContents
Range("I3:J" & [J65000].End(xlUp).Row).Cut
[G3].Select
ActiveSheet.Paste
[I2:J2].ClearContents
Range("G2:H" & [H65000].End(xlUp).Row).Sort [G3], 2, Header:=xlGuess
End Sub

Thân.

 

[ndu96081631]

Làm gần giống với Po (giống thuật toán, khác về chi tiết quá trình)

Sub Test()
  Range("F2").CurrentRegion.Clear
  With Range("A2").CurrentRegion
    .Offset(.Rows.Count).Resize(.Rows.Count - 1, 1).Value = .Offset(1).Resize(.Rows.Count - 1, 1).Value
    .Offset(.Rows.Count, 1).Resize(.Rows.Count - 1, 1).Value = .Offset(1, 2).Resize(.Rows.Count - 1, 1).Value
    With Range("A2").CurrentRegion.Resize(, 2)
      .AdvancedFilter 2, , [F2], True
    End With
    .Offset(.Rows.Count).Resize(.Rows.Count - 1, 2).ClearContents
  End With
  With Range("F2").CurrentRegion
    .Sort .Cells(2, 1), 2, Header:=xlYes
  End With
End Sub

 

[vuha]

Vì mình không biết về VBA nên các bạn có thể chỉ cho mình cách dùng công thức tại cột TK được không? Có thể dùng cột phụ tại vùng dữ liệu nguồn hoặc đích cũng được. Rất mong nhận được sự trợ giúp của các bạn. Thanks.

 

[ndu96081631]

Vì mình không biết về VBA nên các bạn có thể chỉ cho mình cách dùng công thức tại cột TK được không? Có thể dùng cột phụ tại vùng dữ liệu nguồn hoặc đích cũng được. Rất mong nhận được sự trợ giúp của các bạn. Thanks.

Tôi đã có nghĩ qua việc dùng công thức, nhưng e rằng rất khó với bài toán này (trích duy nhất nhiều cột)
Tôi nghĩ khó khăn của bạn là làm thế nào áp dụng code vào file thật, đúng khong? Vậy sao bạn không đưa file thật lên đây luôn?
Còn không thì bạn làm bằng tay vậy! Quy trình như sau:
- Copy cột A, paste nối đuôi với dử liệu của cột A hiện có (tức copy từ A3:A23, paste vào A24)
- Copy cột C, paste nối đuôi với dử liệu của cột B hiện có (tức copy từ C3:C23, paste vào B24)
- Quét chọn 2 cột A và B (A2:B44)
- Vào menu Data\Filter\Advanced Filter ---> Check vào mục "Copy to another location" ---> Check vào "Unique Records only" ---> Khung "Copy to" bạn chọn cell nào mà bạn muốn đặt dử liệu mới
- Sau khi lọc AF xong, sort lại dử liệu mới này
Nói thêm: Code của tôi cũng làm trên cơ sơ này... chẳng qua là tự động quá trình làm bằng tay như nãy giờ tôi trình bày

 

[bmtcity2009]

Vấn đê của em cũng gần giống. Mong Anh ndu96081631 làm giúp .Cám ơn anh!

http://www.giaiphapexcel.com/forum/showthread.php?113367-Xin-gi%C3%BAp-%C4%91%E1%BB%A1-c%E1%BB%A7a-c%C3%A1c-anh-ch%E1%BB%8B-v%C3%A8-vi%E1%BB%87c-s%E1%BA%AFp-x%E1%BA%BFp-l%E1%BA%A1i-s%E1%BB%91-ch%E1%BB%A9ng-t%E1%BB%AB-nh%C6%B0-trong-file-Excel

 

[bmtcity2009]

Vấn đê của em cũng gần giống. Mong Anh ndu96081631 làm giúp .Cám ơn anh!

 

[HieuCD]

theo kỷ thuật xứ lý của giáo trình hệ thống thông tin kế toán tập 1 của khoa kế toán trường ĐH kinh tế TP HCM 2015, có thay đổi một ít, bạn xem thử, hơi khó hiểu, và cũng khó giải thích cho bạn