Rút gọn đoạn mã chương trình...

[xuan_huy2010]

Em có đoạn mã sau:

xcelBook.Sheets(1).Range("B10") = Sheets(2).Range("cc13")
ExcelBook.Sheets(1).Range("C10") = Sheets(2).Range("cc14")
ExcelBook.Sheets(1).Range("d10") = Sheets(2).Range("cc20")
ExcelBook.Sheets(1).Range("e10") = Sheets(2).Range("cc21")

Em rút gọn thành:

ExcelBook.Sheets(1).Range("B10:e10") = Sheets(2).Range("cc13:cc21")

Nhưng khi chạy ct báo lỗi. Các anh xem giùm em với.

 

[ndu96081631]

Em có đoạn mã sau:

xcelBook.Sheets(1).Range("B10") = Sheets(2).Range("cc13")
ExcelBook.Sheets(1).Range("C10") = Sheets(2).Range("cc14")
ExcelBook.Sheets(1).Range("d10") = Sheets(2).Range("cc20")
ExcelBook.Sheets(1).Range("e10") = Sheets(2).Range("cc21")

Em rút gọn thành:

ExcelBook.Sheets(1).Range("B10:e10") = Sheets(2).Range("cc13:cc21")

Nhưng khi chạy ct báo lỗi. Các anh xem giùm em với.

Không rút gọn kiểu đó được đâu nha!
Một là giữ nguyên code cũ
Hai là thêm With... End With vào (nhưng cũng chẳng rút gọn bao nhiêu)
Nếu code của bạn thế này:

ExcelBook.Sheets(1).Range("B10") = Sheets(2).Range("CC10")
ExcelBook.Sheets(1).Range("C10") = Sheets(2).Range("CD10")
ExcelBook.Sheets(1).Range("D10") = Sheets(2).Range("CE10")
ExcelBook.Sheets(1).Range("E10") = Sheets(2).Range("CF10")

Thì sẽ rút gọn được thành:

ExcelBook.Sheets(1).Range("B10:E10").Value = Sheets(2).Range("CC10:CF10").Value