Nhờ các anh chị giúp đỡ về copy and paste

Liên hệ QC

rollytan

Thành viên mới
Tham gia
11/7/10
Bài viết
8
Được thích
0
Giới tính
Nam
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
help.jpg
 

File đính kèm

View > Split screen
 
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
View attachment 208761
Dữ liệu 20xxx dòng "gồm cả công thức các thứ", copy xong thì máy cũng đơ.
 
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
View attachment 208761
Tại sao nhất thiết phải copy công thức à bạn.Trong khi đó mình thấy công thức có gì đâu nhỉ.
 
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
View attachment 208761
Bạn dùng tạm cái code thủ công này chơi vui. Dữ liệu của bạn mà thay đổi 1 nanomet là sửa đấm đuối.
Nếu không muốn bỏ công sửa code. Thì bạn áp dụng hàm bên này: Link
Thay thế cho tham chiếu Cột....
****Vẫn còn nhiều cách....
JavaScript:
  Sub copyABCRow()
    Dim i&, Arr
    With Worksheets("ALL")
      Arr = .Range("B1:B" & .Range("B65000").End(xlUp).Row).Value
      For i = 8 To UBound(Arr) Step 7
        .Cells(i + 5, 3).Resize(2, 30).Formula = reFormula(i)
      Next i
    End With
  End Sub

  Private Function reFormula(i As Long) As Variant
    Dim Arr(1 To 30, 1 To 2) As Variant
    Arr(1, 1) = "=C" & i + 1: Arr(1, 2) = "=C" & i + 3
    Arr(2, 1) = "=D" & i + 1: Arr(2, 2) = "=D" & i + 3
    Arr(3, 1) = "=SUM(F" & i + 5 & ":AF" & i + 5 & ")": Arr(3, 2) = "=SUM(F" & i + 6 & ":AF" & i + 6 & ")"
    Arr(4, 1) = "=F" & i & "-SUM(F" & i + 1 & ":F" & i + 2 & ")+G" & i: Arr(4, 2) = "=F" & i & "-SUM(F" & i + 3 & ":F" & i + 4 & ")+G" & i
    Arr(6, 1) = "=H" & i & "-SUM(H" & i + 1 & ":H" & i + 2 & ")+I" & i: Arr(6, 2) = "=H" & i & "-SUM(H" & i + 3 & ":H" & i + 4 & ")+I" & i
    Arr(8, 1) = "=J" & i & "-SUM(J" & i + 1 & ":J" & i + 2 & ")+K" & i: Arr(8, 2) = "=J" & i & "-SUM(J" & i + 3 & ":J" & i + 4 & ")+K" & i
    Arr(10, 1) = "=L" & i & "-SUM(L" & i + 1 & ":L" & i + 2 & ")+M" & i: Arr(10, 2) = "=L" & i & "-SUM(L" & i + 3 & ":L" & i + 4 & ")+M" & i
    Arr(12, 1) = "=N" & i & "-SUM(N" & i + 1 & ":N" & i + 2 & ")+O" & i: Arr(12, 2) = "=N" & i & "-SUM(N" & i + 3 & ":N" & i + 4 & ")+O" & i
    Arr(14, 1) = "=P" & i & "-SUM(P" & i + 1 & ":P" & i + 2 & ")+Q" & i: Arr(14, 2) = "=P" & i & "-SUM(P" & i + 3 & ":P" & i + 4 & ")+Q" & i
    Arr(16, 1) = "=R" & i & "-SUM(R" & i + 1 & ":R" & i + 2 & ")+S" & i: Arr(16, 2) = "=R" & i & "-SUM(R" & i + 3 & ":R" & i + 4 & ")+S" & i
    Arr(18, 1) = "=T" & i & "-SUM(T" & i + 1 & ":T" & i + 2 & ")+U" & i: Arr(18, 2) = "=T" & i & "-SUM(T" & i + 3 & ":T" & i + 4 & ")+U" & i
    Arr(20, 1) = "=V" & i & "-SUM(V" & i + 1 & ":V" & i + 2 & ")+W" & i: Arr(20, 2) = "=V" & i & "-SUM(V" & i + 3 & ":V" & i + 4 & ")+W" & i
    Arr(22, 1) = "=X" & i & "-SUM(X" & i + 1 & ":X" & i + 2 & ")+Y" & i: Arr(22, 2) = "=X" & i & "-SUM(X" & i + 3 & ":X" & i + 4 & ")+Y" & i
    Arr(24, 1) = "=Z" & i & "-SUM(Z" & i + 1 & ":Z" & i + 2 & ")+AA" & i: Arr(24, 2) = "=Z" & i & "-SUM(Z" & i + 3 & ":Z" & i + 4 & ")+AA" & i
    Arr(26, 1) = "=AB" & i & "-SUM(AB" & i + 1 & ":AB" & i + 2 & ")+AC" & i: Arr(26, 2) = "=AB" & i & "-SUM(AB" & i + 3 & ":AB" & i + 4 & ")+AC" & i
    Arr(28, 1) = "=AD" & i & "-SUM(AD" & i + 1 & ":AD" & i + 2 & ")+AE" & i: Arr(28, 2) = "=AD" & i & "-SUM(AD" & i + 3 & ":AD" & i + 4 & ")+AE" & i
    Arr(30, 1) = "=AF" & i & "-SUM(AF" & i + 1 & ":AF3)": Arr(30, 2) = "=AF" & i & "-SUM(AF" & i + 3 & ":AF" & i + 4 & ")"
    reFormula = Application.Transpose(Arr)
  End Function
 
Lần chỉnh sửa cuối:
Bạn dùng tạm cái code thủ công này chơi vui. Dữ liệu của bạn mà thay đổi 1 nanomet là sửa đấm đuối.
Nếu không muốn bỏ công sửa code. Thì bạn áp dụng hàm bên này: Link
Thay thế cho tham chiếu Cột....
****Vẫn còn nhiều cách....
Mã:
  Sub copyABCRow()
    Dim i&, j&, k&, iRow&, iCol&
    Dim Arr, dArr
    With Worksheets("ALL")
      Arr = .Range("B1:B" & .Range("B65000").End(xlUp).Row).Value
      For i = 8 To UBound(Arr) Step 7
        .Cells(i + 5, 3).Resize(2, 30).Formula = reFormula(i)
      Next i
    End With
  End Sub

  Private Function reFormula(i As Long) As Variant
    Dim Arr(1 To 30, 1 To 2) As Variant
    Arr(1, 1) = "=C" & i + 1: Arr(1, 2) = "=C" & i + 3
    Arr(2, 1) = "=D" & i + 1: Arr(2, 2) = "=D" & i + 3
    Arr(3, 1) = "=SUM(F" & i + 5 & ":AF" & i + 5 & ")": Arr(3, 2) = "=SUM(F" & i + 6 & ":AF" & i + 6 & ")"
    Arr(4, 1) = "=F" & i & "-SUM(F" & i + 1 & ":F" & i + 2 & ")+G" & i: Arr(4, 2) = "=F" & i & "-SUM(F" & i + 3 & ":F" & i + 4 & ")+G" & i
    Arr(6, 1) = "=H" & i & "-SUM(H" & i + 1 & ":H" & i + 2 & ")+I" & i: Arr(6, 2) = "=H" & i & "-SUM(H" & i + 3 & ":H" & i + 4 & ")+I" & i
    Arr(8, 1) = "=J" & i & "-SUM(J" & i + 1 & ":J" & i + 2 & ")+K" & i: Arr(8, 2) = "=J" & i & "-SUM(J" & i + 3 & ":J" & i + 4 & ")+K" & i
    Arr(10, 1) = "=L" & i & "-SUM(L" & i + 1 & ":L" & i + 2 & ")+M" & i: Arr(10, 2) = "=L" & i & "-SUM(L" & i + 3 & ":L" & i + 4 & ")+M" & i
    Arr(12, 1) = "=N" & i & "-SUM(N" & i + 1 & ":N" & i + 2 & ")+O" & i: Arr(12, 2) = "=N" & i & "-SUM(N" & i + 3 & ":N" & i + 4 & ")+O" & i
    Arr(14, 1) = "=P" & i & "-SUM(P" & i + 1 & ":P" & i + 2 & ")+Q" & i: Arr(14, 2) = "=P" & i & "-SUM(P" & i + 3 & ":P" & i + 4 & ")+Q" & i
    Arr(16, 1) = "=R" & i & "-SUM(R" & i + 1 & ":R" & i + 2 & ")+S" & i: Arr(16, 2) = "=R" & i & "-SUM(R" & i + 3 & ":R" & i + 4 & ")+S" & i
    Arr(18, 1) = "=T" & i & "-SUM(T" & i + 1 & ":T" & i + 2 & ")+U" & i: Arr(18, 2) = "=T" & i & "-SUM(T" & i + 3 & ":T" & i + 4 & ")+U" & i
    Arr(20, 1) = "=V" & i & "-SUM(V" & i + 1 & ":V" & i + 2 & ")+W" & i: Arr(20, 2) = "=V" & i & "-SUM(V" & i + 3 & ":V" & i + 4 & ")+W" & i
    Arr(22, 1) = "=X" & i & "-SUM(X" & i + 1 & ":X" & i + 2 & ")+Y" & i: Arr(22, 2) = "=X" & i & "-SUM(X" & i + 3 & ":X" & i + 4 & ")+Y" & i
    Arr(24, 1) = "=Z" & i & "-SUM(Z" & i + 1 & ":Z" & i + 2 & ")+AA" & i: Arr(24, 2) = "=Z" & i & "-SUM(Z" & i + 3 & ":Z" & i + 4 & ")+AA" & i
    Arr(26, 1) = "=AB" & i & "-SUM(AB" & i + 1 & ":AB" & i + 2 & ")+AC" & i: Arr(26, 2) = "=AB" & i & "-SUM(AB" & i + 3 & ":AB" & i + 4 & ")+AC" & i
    Arr(28, 1) = "=AD" & i & "-SUM(AD" & i + 1 & ":AD" & i + 2 & ")+AE" & i: Arr(28, 2) = "=AD" & i & "-SUM(AD" & i + 3 & ":AD" & i + 4 & ")+AE" & i
    Arr(30, 1) = "=AF" & i & "-SUM(AF" & i + 1 & ":AF3)": Arr(30, 2) = "=AF" & i & "-SUM(AF" & i + 3 & ":AF" & i + 4 & ")"
    reFormula = Application.Transpose(Arr)
  End Function
Code này chạy 20xxx dòng mất nhiều thời gian không bạn.
 
Code này chạy 20xxx dòng mất nhiều thời gian không bạn.
Code trên cũng như duyệt dữ liệu thường đưa vào Cells Excel tự tính. Tuy nhiên với việc duyệt tìm thấy 1 dòng dữ liệu kế tiếp mới nhập thì có vẻ đành chờ chủ topic test thôi.
Riêng chủ topic, tôi nghĩ bạn ấy không cần nhanh lắm đâu. Vì tham gia GPE 8 năm rồi mà 2 bài đăng thế kia. Tôi sợ vài năm sau bạn ấy mới xem lại bài này
 
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
Góp ý cho bạn:
1/ Làm sheet theo dõi với tiêu đề như sheet mẫu (lưu theo chiều dọc).
2/ Làm 1 sheet mẫu như File của bạn (từ dòng 1 tới 7) sau đó tính toán cái gì đó ở sheet này, xong thì nhấn nút lưu Value vào sheet theo dõi, không chứa hàm gì cả thì sẽ không làm cho File ì ạch (nếu dữ liệu nhiều như bạn nêu).
3/ Với cách làm trên code sẽ ngắn gọn và đơn giản.
 
Xin chào các anh chị trong forum,

Em có vấn đề này nhờ các anh chị chỉ cách giải quyết
Hiện tại em có file như bên dưới, khu vực các ô tô vàng em đã đánh công thức sẵn, em muốn copy vùng dữ liệu màu vàng đó (gồm cả công thức các thứ) xuống các vùng màu tím bên dưới, có cách nào nhanh hơn là Copy vùng màu vàng rồi lần lần click chuột xuống ô đầu tiên của vùng màu tím rồi Paste ko ạ ? Dữ liệu của em tới dòng thứ 20xxx lận em copy thủ công thế này chắc tới tết em mới xong quá
Em có lên mạng tìm hiểu cách copy paste cách dòng nhưng không thấy hướng dẫn nào rõ ràng như ý em, nhờ các anh chị giúp đỡ, em cảm ơn trước
View attachment 208761
Chỉ copy công thức
Mã:
Sub CopyFunction()
  Dim Res(), sArr()
  Dim sCol As Byte, j As Byte, i As Long, ik As Byte

  sArr = Range("C2:AF7").FormulaR1C1
  sCol = UBound(sArr, 2)
  i = Range("A" & Rows.Count).End(xlUp).Row
  If i < 14 Then Exit Sub
  Res = Range("C9:AF" & i).Formula
  For i = 1 To UBound(Res)
    ik = i Mod 7
    If ik > 0 Then
      For j = 1 To sCol
        Res(i, j) = sArr(ik, j)
      Next j
    End If
  Next i
  Range("C9").Resize(UBound(Res), sCol).Formula = Res
End Sub
 

File đính kèm

Xin cảm ơn các anh chị..e đăng ký từ lâu mà h mới có việc cần xài excel nhiều nên mới hoạt động ạ..để e test các hướng dẫn
 
Web KT

Bài viết mới nhất

Back
Top Bottom