copy giá trị của bảng

[oldfriend]

Mình có một bảng tính trên sheet 1. Các bạn chỉ giúp mình viết code như thế nào để copy bảng này sang sheet 2 (cùng một workbook) nhưng không copy các công thức mà chỉ copy cấu trúc, định dạng của bảng và giá trị trong các ô. Mình đã thử dùng lệnh Copy và PasteSpecial như sau:

PasteSpecial Paste _
:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

thì chỉ chép được giá trị của các ô còn các định dạng các cột hàng, cột, các khung ...thì không có. Do đó kết quả là những con số rời rạc chẳng ra thể thống gì cã.

 

[Mr Okebab]

Mình có một bảng tính trên sheet 1. Các bạn chỉ giúp mình viết code như thế nào để copy bảng này sang sheet 2 (cùng một workbook) nhưng không copy các công thức mà chỉ copy cấu trúc, định dạng của bảng và giá trị trong các ô. Mình đã thử dùng lệnh Copy và PasteSpecial như sau:

PasteSpecial Paste _
:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

thì chỉ chép được giá trị của các ô còn các định dạng các cột hàng, cột, các khung ...thì không có. Do đó kết quả là những con số rời rạc chẳng ra thể thống gì cã.

Bạn thử xem nhé :

Với lệnh PasteSpecial

    With Range("H3")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteAllExceptBorders
        .PasteSpecial Paste:=xlPasteColumnWidths
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    Application.CutCopyMode = False

Ngoài ra còn rất nhiều cách để giữ nguyên format (copy sheet .. )

Thân!

 

[kiendt1973]

Mr Okebab hướng dẫn chi tiết cách sử dụng đc ko. Thanks

 

[Mr Okebab]

Mr Okebab hướng dẫn chi tiết cách sử dụng đc ko. Thanks

VD Copy từ vùng B10100 của Sheet1-->>Vùng A20110 của sheet2
(Chú ý tên Sheet trong VBA)

    Sheet1.Range("B10:D100").Copy
    With Sheet2.Range("A20")
        .PasteSpecial Paste:=xlPasteValues
        .PasteSpecial Paste:=xlPasteFormats
        .PasteSpecial Paste:=xlPasteAllExceptBorders
        .PasteSpecial Paste:=xlPasteColumnWidths
        .PasteSpecial Paste:=xlPasteValuesAndNumberFormats
    End With
    Application.CutCopyMode = False

Thân!

 

[anhtuan1066]

Sao Column Width thì thấy cho phép chọn.. còn Row Height thì ko biết phải chọn ở đâu nhỉ? Paste thế nào thì độ cao cua Row cũng ko giống với nguyên mẫu, trừ khi chọn copy cả Row...

 

[oldfriend]

Cách copy sheet thì mình đã làm nhưng nó chép nguyên công thức sang sheet 2 luôn trong khi mình muốn người xem thấy kết quả (giá trị) trong bảng tính mà không thấy công thức (để bảo vệ các công thức này không bị mất hoặc làm sai đi).
Cám ơn bạn Okebab nha!