Sắp xếp, tổng hợp dữ liệu... cần 1 giải pháp :(( (1 người xem)

[CAIMONGS]

Mình đang có 2 form excel. Dữ liệu thì như nhau nhưng vị trí lại khác nhau.
VD ở File 1 mình có 10 cột nhưng mình chỉ cần lấy cột 3 5 7 rồi đưa cột 3 5 7 đó sang file số 2. Nhưng thứ tự lại khác. Cụ thể hơn
là cột 3A 5A 7A ( A là của file 1 B là file 2 ) sẽ đưa lần lượt vào cột 2B 4B 6B ở file 2. Hiện tại mình đang dùng cách thủ công là copy paste =.= . Không biết có cách nào khác nhanh hơn nữa ko. MÌnh có gửi 1 file VD các bạn xem có giải pháp nào cho việc này ko.
Cám ơn

 

[ngoinhahoahong1492]

Mình đang có 2 form excel. Dữ liệu thì như nhau nhưng vị trí lại khác nhau.
VD ở File 1 mình có 10 cột nhưng mình chỉ cần lấy cột 3 5 7 rồi đưa cột 3 5 7 đó sang file số 2. Nhưng thứ tự lại khác. Cụ thể hơn
là cột 3A 5A 7A ( A là của file 1 B là file 2 ) sẽ đưa lần lượt vào cột 2B 4B 6B ở file 2. Hiện tại mình đang dùng cách thủ công là copy paste =.= . Không biết có cách nào khác nhanh hơn nữa ko. MÌnh có gửi 1 file VD các bạn xem có giải pháp nào cho việc này ko.
Cám ơn

Mình xem file bạn gửi thấy không như bạn giải thích.
Bạn nói bạn làm thủ công là copy 1, 2 và 3. Mình chưa hiểu ý bạn?

 

[CAIMONGS]

xin lỗi nếu mình giải thích ko kỹ vì cái vấn đề này mình cũng ko biết giải thích sao.
VD như trong file có 3 sheet, mình cần tổng hợp lại Sheet 1 và 2 để ra KQ như sheet 3. Giả sử cách thủ công là copy thông tin của cột Tên bên sheet 1 paste tiếp vào cột tên bên sheet 2 thì đc cột tên bên sheet 3..... cứ làm thế với các cột còn lại. Tức là bản chất các dữ liệu như nhau nhưng nằm ở vị trí khác nhau của 2 sheet và h mình cần đưa nó về 1 mối. mình ko biết có cách nào nhanh hơn ko

 

[thanh tong]

Chào bác NDu bác cho em hỏi trong VBA dung lênh làm tròn số như thế nao ( Round)
Em chi biết ở trong bảng cell thôi
em muốn làm tròn cho phép chia vidu round( 10/3,1)

 

[ChanhTQ@]

Bạn thử với macro ni xem sao:

Option Explicit
Sub Copy2And1To3()
 Sheet3.Select:            Columns("A:G").ClearContents
 Sheet2.Columns("A:G").Copy Destination:=[A1]
 Dim jJ As Byte, Col As Byte
 For jJ = 2 To 4
   Col = Choose(jJ - 1, 3, 7, 5)
   Sheet1.Cells(1, jJ).Resize(65500).Offset(1).Copy _
      Destination:=Cells(65535, Col).End(xlUp).Offset(1)
 Next jJ
End Sub

To Thanh Tong: Bạn chen ngang là vi fạm nội quy & chắc chả có ai trả lời cho bạn đâu!