cách copy Ô A1 và Ô A3 sang Ô B1 và B3 như thế nào? (copy cách quảng) (1 người xem)

[khanhnth02]

coppy Ô A1 và Ô A3 sang Ô B1 và B3 như thế nào? tôi làm nhưng nó hiện ra kết quả ở ô B1 và B2

 

[MinhCong]

Bạn quét chọn vùng A1:A3 cà copy dán sang B1:B3 bình thường mà. Không biết ý của Bạn như thế nào? Hãy nói rõ hơn hoặc gởi file lên muốn thực hiện như thế nào?

 

[ndu96081631]

Bạn quét chọn vùng A1:A3 cà copy dán sang B1:B3 bình thường mà. Không biết ý của Bạn như thế nào? Hãy nói rõ hơn hoặc gởi file lên muốn thực hiện như thế nào?

Tức là copy vùng không liên tục và người ta muốn khi dán nó giữ nguyên cấu trúc (cũng không liên tục luôn)
Copy A1 và A3 ---> Paste sang B1 thì sẽ paste vào B1 và B3 ---> Cell A2 không copy và B2 cũng không được paste
Điều này e rằng chỉ có thể làm bằng code VBA, còn không thì đơn giản đi: B1 = A1 và B3 = A3 cho rồi

 

[MinhCong]

Học cách đưa vào mảng của Anh NDU áp dụng cho trường hợp này vậy.

Sub copycell()
  Dim i As Long, Arr(1 To [COLOR=Red]65536[/COLOR], 1 To 1), Tmp
  Tmp = Sheets("sheet1").Range("A1:A[COLOR=Red]65536[/COLOR]").Value
  For i = 1 To [COLOR=Red]65536[/COLOR] Step 2
    Arr(i, 1) = Tmp(i, 1)
  Next
  Range("B1:B[COLOR=Red]65536[/COLOR]") = Arr
End Sub

Chú ý số màu đỏ tùy thuộc vào vùngđữ liệu của Bạn.

 

[sealand]

Mình thì có 1 đoạn code đơn giản thôi, bạn giữ Ctrl rồi chọn tất cả các vùng cần chép rồi chạy Code nó sẽ mang cả dữ liệu, công thức, định dạng và cấu trúc chọn lựa sang cột bên cạnh

Sub Chep()
Dim cll As Range
For Each cll In Selection
cll.Copy cll.Offset(, 1)
Next
End Sub

 

[ndu96081631]

Mình thì có 1 đoạn code đơn giản thôi, bạn giữ Ctrl rồi chọn tất cả các vùng cần chép rồi chạy Code nó sẽ mang cả dữ liệu, công thức, định dạng và cấu trúc chọn lựa sang cột bên cạnh

Sub Chep()
Dim cll As Range
For Each cll In Selection
cll.Copy cll.Offset(, 1)
Next
End Sub

Anh ơi! Nếu làm 1 code thì em nghĩ nên tổng quát 1 chút
Đại khái là:

Sub Copy(SrcRng as Range, Target as Range)
  '.... Làm gì đó
End Sub

SrcRng là vùng cần copy
Target là cell sẽ đặt kết quả
2 Range này có thể là bất kỳ ở đâu trên cùng 1 sheet hoặc khác sheet ---> Kết quả cuối cùng tại Target bảo đảm sao cho cùng cấu trúc với SrcRng là được