THAM CHIẾU TỚI HÀNG ĐẢ BIẾT

[LOIKS]

chào mọi người
mình có code như sau bây giờ mình muốn thay số 100 trong "Range("AW17:AW100").Select" bằng kí tự "sh"
sh là số hàng cuối của dữ liệu khi đếm xong dữ liệu
mình phải sửa như thế nào nhỉ ?

a = WorksheetFunction.CountA(Range("B" & 17 & ":B" & 20000))
sh = a + 16
Range("AW17:AW100").Select

 

[huuthang_bd]

chào mọi người
mình có code như sau bây giờ mình muốn thay số 100 trong "Range("AW17:AW100").Select" bằng kí tự "sh"
sh là số hàng cuối của dữ liệu khi đếm xong dữ liệu
mình phải sửa như thế nào nhỉ ?

a = WorksheetFunction.CountA(Range("B" & 17 & ":B" & 20000))
sh = a + 16
Range("AW17:AW100").Select

Range("AW17:AW" & CStr(Sh)).Select

 

[Phuocam]

Range("AW17:AW"&sh).Select