Hỏi về code: Copy dữ liệu 1 vùng của sheet hiện tại sang workbook mới

[nhunguyet0103]

Các anh chị cho em hỏi với ạ! Em muốn Copy dữ liệu 1 vùng (ví dụ: A1:AC35) của sheet hiện tại sang workbook mới thì viết code như thế nào ạ! Thanks!

 

[ndu96081631]

Các anh chị cho em hỏi với ạ! Em muốn Copy dữ liệu 1 vùng (ví dụ: A1:AC35) của sheet hiện tại sang workbook mới thì viết code như thế nào ạ! Thanks!

Thì viết bằng cách nhờ anh Bill giúp một tay: Record macro quá trình copy paste vào workbook mới ấy rồi xem ta có những gì trong code ---> Từ đó tính tiếp

 

[nhunguyet0103]

Cảm ơn anh! Dựa theo gợi ý của anh em đã copy được 1 vùng của sheet hiện tại sang workbook mới (nhờ Record macro).
code có dạng:
Sub Macro1()
Range("A1:AC35").Select
Selection.Copy
Workbooks.Add
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub

Nhưng lại nảy sinh vấn đề là chiều rộng của 1 số cột sau khi copy sang workbook mới không được giữ nguyên như sheet gốc (mà nó bị co lại làm dữ liệu bị nhảy xuống làm hai hàng). em tạm chữa cháy bằng cách thêm dòng màu xanh lam:

Sub Macro1()
Range("A1:AC35").Select
Selection.Copy
Workbooks.Add
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Range("A1").Select
End Sub

Anh cho em hỏi: là thêm dòng code đó vào liệu có ổn không ạ?

 

[ndu96081631]

Anh cho em hỏi: là thêm dòng code đó vào liệu có ổn không ạ?

Quá ổn chứ sao không
Giờ chỉ việc làm cho nó "đẹp" lên một chút thôi

Sub Macro1()
  Dim MyWb As Workbook, NewWb As Workbook
  Set MyWb = ThisWorkbook
  Set NewWb = Workbooks.Add
  MyWb.Sheets("Sheet1").Range("A1:AC35").Copy  ''<--- Copy luôn mà không cần phải Select
  With NewWb.Sheets("Sheet1").Range("A1")
    .PasteSpecial xlPasteColumnWidths
    .PasteSpecial xlPasteAll
  End With
  Application.CutCopyMode = 0  
End Sub

Đại khái vậy

 

[nhunguyet0103]

Em cảm ơn anh ndu96081631 nhiều...nhiều! Chúc anh và gia đình luôn mạnh khỏe, thành đạt!