Copy sang 3 ô bên cạnh

[thang_nguyen1]

ý của mình là copy từ một ô copy sang 3 ô bên cạnh. dùng VBA. mình cảm ơn

 

[befaint]

Mình copy / paste 3 lần nối tiếp vào nhau, rồi sort 1 cái là được kết quả mong muốn. Tốc độ siêu thanh luôn.

 

[xuongrongdat]

Mình copy / paste 3 lần nối tiếp vào nhau, rồi sort 1 cái là được kết quả mong muốn. Tốc độ siêu thanh luôn.

Con chưa hiểu ý bác nha. Bác xem file của bạn thớt chưa?
Là thớt có dữ liệu trong 3 ô merge cell lại á, rồi muốn cóp dữ liệu đó ra thành 3 ô riêng kế bên á.

@thang_nguyen1 : bài bạn đâu cần VBA ta??? Bạn gửi dữ liệu thiệt lên hoặc dữ liệu trăm ngàn gì đại đi, mọi người giúp bạn xử lý cho. Chứ như file bạn minh họa thì chỉ cần phủ khối, bỏ hòa ô, xong copy, rồi paste 2 phát là xong. VBA chi đâu ta????

 

[thang_nguyen1]

Con chưa hiểu ý bác nha. Bác xem file của bạn thớt chưa?
Là thớt có dữ liệu trong 3 ô merge cell lại á, rồi muốn cóp dữ liệu đó ra thành 3 ô riêng kế bên á.

@thang_nguyen1 : bài bạn đâu cần VBA ta??? Bạn gửi dữ liệu thiệt lên hoặc dữ liệu trăm ngàn gì đại đi, mọi người giúp bạn xử lý cho. Chứ như file bạn minh họa thì chỉ cần phủ khối, bỏ hòa ô, xong copy, rồi paste 2 phát là xong. VBA chi đâu ta????

đúng r bạn. ý mình là vậy. nhưng có thể dữ liệu dài nên mới dùng vba

 

[befaint]

Con chưa hiểu ý bác nha. Bác xem file của bạn thớt chưa?
Là thớt có dữ liệu trong 3 ô merge cell lại á, rồi muốn cóp dữ liệu đó ra thành 3 ô riêng kế bên á

Xem rồi thì mình trả lời vậy chứ.

"ý mình là vậy" thì "vừng ơi mở cửa não ra" không có tác dụng mà.

Xem file mình phán đoán cái 3 ô gộp là chưa có cho tới khi xong iêu cầu chép lên 3 lần kia.

Trường hợp đã gộp ô 3 lần thì cũng bỏ, bởi lại quay về kiến thức siêu cơ bản: Thiết kế cấu trúc bảng dữ liệu đúng chuẩn.

Ngoại lệ, nếu cố đấm ăn xôi, đã có cột có 3 ô gộp thì càng siêu siêu thanh, bằng cách:
- Copy, Paste cả cột đã có
- Bỏ gộp ô rồi dùng mẹo nhỏ xíu: Ctrl + Enter.

Nói chung kiểu nào cũng lèo cái xong.

 

[SA_DQ]

File có tẹo Code nào đâu mà bỏ bài vô ngăn 'Trung tâm giải thích Code'?

 

[xuongrongdat]

Bỏ gộp ô rồi dùng mẹo nhỏ xíu: Ctrl + Enter.

Mẹo nhỏ gì mà đến nỗi tổ hợp phím này đó giờ con chưa biết trong Excel nó để làm gì luôn.
Google nãy giờ chưa ra. Mà thực hành cũng trơ trơ không làm được luôn.

Chỉ biết tổ hợp phím này bên Word là để ngắt trang.
Bác giải thích dùm con với !

 

[thang_nguyen1]

File có tẹo Code nào đâu mà bỏ bài vô ngăn 'Trung tâm giải thích Code'?

mình thành viên mới. Ko biết. thông cảm à

 

[befaint]

Mẹo nhỏ gì mà đến nỗi tổ hợp phím này đó giờ con chưa biết trong Excel nó để làm gì luôn.
Google nãy giờ chưa ra. Mà thực hành cũng trơ trơ không làm được luôn.

Chỉ biết tổ hợp phím này bên Word là để ngắt trang.
Bác giải thích dùm con với !

Bài số #2 mới tinh luôn này:

Giúp điền giá trị đầy ô trống ở bên dưới

Chào các bác Nhờ các bác giúp em vấn đề này với ạ VD: Cột A là data, Cột C là dữ liệu mà em muốn có Để tạo ra cột C thì sử dụng công thức như thế nào ạ, chứ copy bằng tay chắc em chớt mất :(

www.giaiphapexcel.com

 

[SA_DQ]

Sub CopyRa3O()
 Dim Rws As Long, J As Long
 
 Rws = [B65500].End(xlUp).Row + 2
 For J = 2 To Rws Step 3
    Cells(J, "A").Resize(3).Value = Cells(J, "B").Value
 Next J
End Sub

 

[VetMini]

Mẹo nhỏ gì mà đến nỗi tổ hợp phím này đó giờ con chưa biết trong Excel nó để làm gì luôn.
Google nãy giờ chưa ra. Mà thực hành cũng trơ trơ không làm được luôn.

Chỉ biết tổ hợp phím này bên Word là để ngắt trang.
Bác giải thích dùm con với !

Trong Excel: Ctrl+Enter dùng để ghi một cái gì đó vào nhiều ô đã chọn (bôi đen)
Trong Word: Ctrl+Enter là tổ hợp phím để ghi ký hiệu sang trang.

 

[thang_nguyen1]

Sub CopyRa3O()
Dim Rws As Long, J As Long

Rws = [B65500].End(xlUp).Row + 2
For J = 2 To Rws Step 3
    Cells(J, "A").Resize(3).Value = Cells(J, "B").Value
Next J
End Sub

Cảm ơn bạn rất nhiều