ActiveSheet.Copy
Ở đây người ta chỉ muốn copy giá trị và định dạng cơ mà.
Cái này chắc phải chờ tác giả lên tiếng mới biết thôi. Bạn xem đây:
Một chữ thôi sẽ đổi nghĩa cả câu.
Thì cứ ghi lại 1 macro và edit đôi chút. Không biết có đúng không.
Sub CopyShtoWB()
With Application
.DisplayAlerts = False: .ScreenUpdating = False
End With
Sheets("Sheet1").Copy
Cells.Select
With Selection
.Copy
.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End With
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\Administrator\My Documents\789.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
ActiveWindow.Close
With Application
.CutCopyMode = False
.DisplayAlerts = True:: .ScreenUpdating = True
End With
End Sub
Tôi có viết 1 bài tại đây:
With Activesheet.UsedRange
.Value = .Value
End WithUh... có thể hiểu theo 2 cách... dựa vào câu nói này của tác giả:
1> Hiểu theo cách 1:
Vậy thì bạn làm theo kiểu: Ctrl + A... Ctrl + C rồi PasteSpecial\Value đi là xong
Sub Macro1()
ActiveSheet.Cells.Copy
With Workbooks.Add
.ActiveSheet.PasteSpecial 3
.SaveAs ("Test.xls"): .Close
End With
End SubĐâu có vấn đề gì với mấy cái Format ấy chứ! Thích thì PasteSpecial\Formats + PasteSpecial\Column Widths
Muốn paste có độ cao của dòng thì dùng cái gì nhỉ?
Sub Macro1()
With Sheets("abc")
ActiveSheet.[A1:Z1000].Copy Destination:=.[A1:Z1000]
.[A1:Z1000] = .[A1:Z1000].Value
End With
End SubSub Macro2()
Sheets.Add.Name = ("abc")
With Sheets("abc")
Sheets("Data").[A1:Z1000].Copy Destination:=.[A1:Z1000]
.[A1:Z1000] = .[A1:Z1000].Value
End With
End Sub
