Hỏi về code căn dòng (1 người xem)

[vova2209]

Sub SetupRowBangKL()
    Application.ScreenUpdating = False

        Sheets24.Range("B1:B11").RowHeight = Sheets23.Range("B1:B11").RowHeight
        Sheets25.Range("B1:B11").RowHeight = Sheets23.Range("B1:B11").RowHeight
        Sheets26.Range("B1:B11").RowHeight = Sheets23.Range("B1:B11").RowHeight
        Sheets39.Range("B1:B11").RowHeight = Sheets23.Range("B1:B11").RowHeight
        Sheets40.Range("B1:B11").RowHeight = Sheets23.Range("B1:B11").RowHeight
                
    Application.ScreenUpdating = True
End Sub

em có vài sheet số dòng muốn căn chỉnh theo 1 sheet mình đã chỉnh, phải viết code căn từng dòng 1 hay là gộp luôn vài dòng ở câu lệnh code. Anh, Chị nào tư vấn giúp em với! em xin cảm ơn!

 

[befaint]

Dim h
h=Sheet23.Range("B1").RowHeight
Dim a, ws
'Liệt kê  tên các sheets'
a=array("ten 1", "ten2", "ten3")
For each ws in a
sheets(ws).range("B1:B11").RowHeight=h
Next ws

 

[vova2209]

Anh ơi!
Chỗ tên sheet đổi thành số thứ tự của sheets như dưới thì sửa như nào ạ, và vòng for này đang lấy theo chiều rộng của đúng 1 B1, trong sheets23 của em thì dòng 1 đến dòng 11 có chiều rộng khác nhau. Xem hộ em với ạ

Sub SetupRowBangKL()
Dim h1, h2, h3,h4
h1 = Sheet23.Range("B1").RowHeight
h2 = ..............
Dim a, ws

    a = Array("Sheets24", "Sheets25", "Sheets26", "Sheets39", "Sheets40") 'Liêt kê  tên các sheets'
    For Each ws In a
        Sheets(ws).Range("B1").RowHeight = h1
       Sheets(ws).Range("B2").RowHeight = h2
        Sheets(ws).Range("B3").RowHeight = h3
        Sheets(ws).Range("B...").RowHeight = h4
    Next ws
End Sub