Xin 1 vài Code đơn giản để hiểu về Used Range là gì (2 người xem)

[597335]

Đọc một số bài trên diễn đàn nhưng em chưa hiểu lắm về Used Range. Xin các anh, chị trên diễn đàn cho em một vài ví dụ đơn giản để em hiểu về khái niệm này

 

[597335]

Cảm ơn bác Ndu rất nhiều, em đã làm được rồi bác ah

Sub Timhieu()
With Sheets("Sheet1")
.Move Before:=Sheets(1)
.Select
.[A2].Copy .[A1]
End With
End Sub

 

[597335]

Em định Copy vùng A1:C2, Paste vào ô A3. Sau đó toàn bộ dữ liệu trên màn hình sẽ được tô màu đỏ, nhưng Code sau không chạy được, mong nhận được sự giúp đỡ

Sub thunghiem() 
Range("A1:C2").Copy [A3] 
UsedRange.Font.Color = 255 
End Sub

 

[ndu96081631]

Em định Copy vùng A1:C2, Paste vào ô A3. Sau đó toàn bộ dữ liệu trên màn hình sẽ được tô màu đỏ, nhưng Code sau không chạy được, mong nhận được sự giúp đỡ

Sub thunghiem() 
Range("A1:C2").Copy [A3] 
UsedRange.Font.Color = 255 
End Sub

UsedRange của Sheet nào mới được chứ? Viết không không vậy nó lỗi là phải rồi
Ít ra phải vầy:

Sub thunghiem()
  Range("A1:C2").Copy [A3]
  ActiveSheet.UsedRange.Font.Color = 255
End Sub

Hoặc kỹ hơn:

Sub thunghiem()
  With ActiveSheet
    .Range("A1:C2").Copy .Range("A3")
    .UsedRange.Font.Color = 255
  End With
End Sub

 

[597335]

Em tưởng không nói gì nó sẽ tự hiểu là Sheet hiện hành (đang thao tác).

 

[dynamic503]

Mình có file này nhưng dùng code sh.usedrange thì lại chọn ra A1K999 (bao gồm cả các ô khác rỗng), có code nào chỉ chọn vùng có data khác rỗng ko các bác?