- Tham gia
- 8/6/06
- Bài viết
- 14,636
- Được thích
- 22,968
- Nghề nghiệp
- U80
Dem tren 1 Sheets đây
PHP:
Sub AInUsedRange()
Dim Rng As Range, Clls As Range
Dim lDem As Long
Set Rng = Sheet1.UsedRange
For Each Clls In Rng
If InStr(UCase(Clls), "A") > 0 Then lDem = 1 + lDem
Next Clls
MsgBox Str(lDem)
End Sub