Nhờ viết code chuyển dữ liệu từ cột thành dòng

[cubinv]

Xin chào các Anh Chị và các Bạn,
Vừa rồi các Bạn đã giúp mình code chuyển dữ liệu nhập từng ngày theo dòng thành bảng tổng hợp từng ngày theo cột đã hỗ trợ rất hiệu quả cho công việc của mình, nay mình lại có nhu cầu ngược lại chuyển dữ liệu từ cột thành dòng như nội dung mình diễn giải theo file đính kèm. Một lần nữa mình mong các Bạn giúp, cảm ơn mọi người rất nhiều!

 

[SA_DQ]

/(hông hiểu ý bạn lắm;
(1) Trong file có 2 yếu cầu cần thực hiện; Chưa rõ là thực hiện cái nào;
Nếu theo yêu cầu thứ 2 thì 'SL' (chắc là 'số lượng') phải lấy từ 'DuLieu2 chứ (?)

[Viết cho người khác hiểu dùm cái, nha!]

 

[cubinv]

/(hông hiểu ý bạn lắm;
(1) Trong file có 2 yếu cầu cần thực hiện; Chưa rõ là thực hiện cái nào;
Nếu theo yêu cầu thứ 2 thì 'SL' (chắc là 'số lượng') phải lấy từ 'DuLieu2 chứ (?)

[Viết cho người khác hiểu dùm cái, nha!]

Thành thật xin lỗi Anh vì chưa diễn giải hết nội dung cần thực hiện:
- Trước đây em đã có code do các Anh trong diễn đàn giúp chuyển từ dòng thành cột, cụ thể là lấy dữ liệu từ sheet "Dulieu2" đưa về sheet "viet_code_OK", do việc theo dõi theo cách cũ có nhiều khó khăn nên em có nhu cầu ngược lại là chuyển dữ liệu từ cột thành dòng cụ thể là lấy dữ liệu có sẵn từ sheet "viet_code_OK" đưa về sheet "code_moi" (ngược lại với quy trình cũ).
- Ngoài ra em có thêm điều kiện là tại thời điểm chạy code nếu dữ liệu trong cùng 1 tháng thì ghi đè (VD dữ liệu tại sheet "code_moi" đã được ghi đến ngày 5/2 nếu đến ngày 7/2 chạy lại code sẽ ghi đè lên các dữ liệu cũ trong cùng tháng 2), những dữ liệu đã ghi trong tháng 1 trở về trước thì được giữ nguyên.
Em rất mong Anh giúp đỡ, em cảm ơn Anh!

 

[SA_DQ]

Vấn đề là sheet "viet_code_OK" không có cột 'SL' để lấy
& 'SL' chỉ có ở trang 'DuLieu2'; Muốn thì phải đến đó mà đem sang!

(VD: ngày chạy code lấy dữ liệu là 05/2/2023 thì toàn bộ dữ liệu từ ngày 01/01/2023 đến ngày 05/02/2023 sẽ được ghi đè, còn dữ liệu từ 31/01/2023 (? đến 1/1/1900) đã ghi sẽ được giữ nguyên)

 

[cubinv]

Vấn đề là sheet "viet_code_OK" không có cột 'SL' để lấy
& 'SL' chỉ có ở trang 'DuLieu2'; Muốn thì phải đến đó mà đem sang!

Cảm ơn Anh, em có chút nhầm lẫn:
- Cột "SL" em sửa lại thành "Hợp đồng" và lấy theo cột "Hợp đồng" trong sheet "viet_code_OK"
- Vì em theo dõi hằng tháng nên khi chạy code chỉ ghi đè dữ liệu từ thời điểm chạy đến ngày đầu tiên của tháng, dữ liệu của các tháng trước (nếu có) thì sẽ được giữ nguyên.
Em xin gửi lại file và hình minh họa mong Anh giúp em.

 

[SA_DQ]

Bạn thao tác thử theo file & phản ảnh những khuyết tật hiện hữu

 

[Thóc Sama]

Thấy ChatGPT hot quá, hỏi thì nó trả lời thế này

Sub ColumnToRow()
  Dim LastRow As Long, i As Long, j As Long
  Dim OutputRange As Range
 
  ' Tìm số dòng cuối cùng trong cột A
  LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
  ' Tạo khoảng output từ A2 đến (LastRow-1)x2 + 1
  Set OutputRange = Range("A2:A" & (LastRow - 1) * 2 + 1)
 
  ' Chuyển đổi cột sang dòng
  j = 2
  For i = 2 To LastRow
    OutputRange.Cells(j, 1) = Cells(i, 1)
    OutputRange.Cells(j + 1, 1) = Cells(i, 2)
    j = j + 2
  Next i
End Sub

Hehe, cái này là để giải trí thôi nhá!

 

[cubinv]

Bạn thao tác thử theo file & phản ảnh những khuyết tật hiện hữu

Em cảm ơn Anh rất nhiều, để em chạy code thử xong còn nội dung nào chưa phù hợp em sẽ nhờ Anh hoàn thiện giúp.

 

[Maika8008]

Thấy ChatGPT hot quá, hỏi thì nó trả lời thế này

Sub ColumnToRow()
  Dim LastRow As Long, i As Long, j As Long
  Dim OutputRange As Range
 
  ' Tìm số dòng cuối cùng trong cột A
  LastRow = Cells(Rows.Count, 1).End(xlUp).Row
 
  ' Tạo khoảng output từ A2 đến (LastRow-1)x2 + 1
  Set OutputRange = Range("A2:A" & (LastRow - 1) * 2 + 1)
 
  ' Chuyển đổi cột sang dòng
  j = 2
  For i = 2 To LastRow
    OutputRange.Cells(j, 1) = Cells(i, 1)
    OutputRange.Cells(j + 1, 1) = Cells(i, 2)
    j = j + 2
  Next i
End Sub

Hehe, cái này là để giải trí thôi nhá!

Thế thì mấy mem gpe sắp thất nghiệp hết rồi

 

[Thóc Sama]

Thế thì mấy mem gpe sắp thất nghiệp hết rồi

Đợi đến ngày đó, excel đã bị xoá sổ từ trước cũng không chừng đấy bác!

 

[cubinv]

Thế thì mấy mem gpe sắp thất nghiệp hết rồi

Đến lúc đấy những người như mình sẽ lại nhờ diễn đàn giúp soạn giúp câu hỏi như thế nào để ChatGPT đưa ra đáp án đúng