Cho Format vào mảng

Các bác và anh chị hướng dẫn cháu với ạ.

Cháu muốn gắn format vào mảng nhưng không được.

Sub Copy_format()
'Cach_1==============
 Dim arr1()
            arr1 = Sheets("1").Range("a1:h7").Value
            arr2 = Sheets("1").Range("a1:h7").Format
            'Sheets("1").Range("a10").Resize(UBound(arr1), UBound(arr1, 2)).NumberFormat = "@"
            Sheets("1").Range("a10").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
            Sheets("1").Range("a10").Resize(UBound(arr1), UBound(arr1, 2)).Formats = arr2

'Copy Format **********************
'                Sheets("TH").Range("Md2:My9").Copy
'                 Sheets("Luu_KQ").Range("Me2").PasteSpecial Paste:=xlPasteFormats
'                Application.CutCopyMode = False

End Sub

Câu thông báo lỗi ghi rõ ràng rồi: đối với range, trên đời này không hề có phương thức hay thuộc tính Format
Thứ hai: có 1 thứ là NumberFormat, nhưng thứ ấy là 1 dạng lưu trữ vô hình của excel, không gán vào biến mảng được. (gán vào biến đơn thì được)

a = Sheets("1").Range("b1").NumberFormat
 Sheets("1").Range("b10:c15").NumberFormat = a

www.giaiphapexcel.com/diendan/threads/cho-format-v%C3%A0o-m%E1%BA%A3ng.166333/

Khóa học SprinGO phù hợp

Xây dựng Lương 3P, KPI cho Doanh nghiệp

Làm thế nào để trả lương cho nhân viên chính xác nhất? Đây là một trong những câu hỏi khó trong quản trị nhân...

Xem khóa học