Cách chuyển dữ liệu từ đầu hàng thứ 2 chuyển xuống cuối của hàng 1. (1 người xem)

[alantran]

Mình đang cần chuyển dữ liệu từ đầu hàng thứ 2 xuống cuối của hàng thứ 1, thì có cách nào để chuyển mà không phải sử dụng lệnh Cut, Paste không?

 

[ndu96081631]

Mình đang cần chuyển dữ liệu từ đầu hàng thứ 2 xuống cuối của hàng thứ 1, thì có cách nào để chuyển mà không phải sử dụng lệnh Cut, Paste không?

Theo bạn mô tả thì tôi hiểu thế này:
- Đầu hàng 2 là TRÊN HÀNG SỐ 2, tức HÀNG 1
- Cuối hàng 1 là DƯỚI HÀNG SỐ 1, tức HÀNG 2
Vậy:

chuyển dữ liệu từ đầu hàng thứ 2 xuống cuối của hàng thứ 1

Nghĩa là:

chuyển dữ liệu từ hàng 1 xuống hàng 2

Đúng không?
Cách của tôi là: Insert 1 dòng trên dòng số 1 ---> Vậy dòng 1 sẽ tự biến thành dòng 2 thôi
Ẹc... Ẹc...
(Nói lòng vòng 1 hồi, ngay cả mình cũng chẳng hiểu mình nói giống gì luôn)

 

[alantran]

Hi, ví dụ cho dễ hiểu nha. Giả sử có 3 cột như thế này:
1 5 9
2 6 10
3 7
4 8
và mình muốn thao tác để tự động nó chuyển thành
1 6
2 7
3 8
4 9
5 10
Có thể áp dụng ở tất cả các cột khác. Vì bảng dữ liệu của mình rất dài và nhiều nữa.

 

[alantran]

Hình như là không có cách nào đúng không các anh chị?

 

[sealand]

Mình khẳng định, việc của bạn kể cả công thức hay VBA chẳng có gì khó khăn cả. Cái khó nhất là hiểu bạn cần làm thế nào? Việc này phụ thuộc vào bạn.

 

[alantran]

Mình đã có dữ liệu rồi, nhưng bây giờ mình muốn chuyển dữ liệu từ đầu cột 2 xuống cuối cột 1, xếp thứ 2 của cột 2 lại lên đầu cột 2, xếp đầu cột 3 lại xuống cuối của cột 2,.... và cứ tiếp tục như thế. Có cách nào để làm không bạn?

 

[sealand]

Bạn tham khảo Code sau nha

Private Sub CommandButton1_Click()
With Sheet1.[a65536].End(xlUp)
.Offset(1) = .Offset(-3)
.Offset(1, 1) = .Offset(-2, 1)
.Offset(2) = .Offset(-2)
.Offset(2, 1) = .Offset(-1, 1)
.Offset(3) = .Offset(-1)
.Offset(3, 1) = .Offset(, 1)
.Offset(4) = .Value
.Offset(4, 1) = .Offset(-3, 2)
.Offset(5) = .Offset(-3, 1)
.Offset(5, 1) = .Offset(-2, 2)
End With
End Sub

 

[haonlh]

Hi, ví dụ cho dễ hiểu nha. Giả sử có 3 cột như thế này:
1 5 9
2 6 10
3 7
4 8
và mình muốn thao tác để tự động nó chuyển thành
1 6
2 7
3 8
4 9
5 10
Có thể áp dụng ở tất cả các cột khác. Vì bảng dữ liệu của mình rất dài và nhiều nữa.

Có lẽ là bạn nhập dữ liệu bị "lệch" theo nghĩa: các ô chứa 6, 7, 8, 9, 10 phải chuyển lên 1 hàng.
Có thể:
- chọn khối đó (từ ô có số 6 đến ô có số 10) , Ctrl - X, chuyển đến ô chứa số 5, gõ Enter
- Hoặc chọn ô chứa số 6, xóa 1 ô bằng cách gõ Ctrl - - (dấu trừ) (chọn kéo dữ liệu lên)
Sửa bổ sung cho có các số còn lại.

Xin nói thêm: do cách nêu câu hỏi mà tôi cho rằng bạn "mới bắt đầu Excel", cho nên tôi giải thích theo kiểu "mới bắt đầu".