phuongthu0109
Thành viên mới
- Tham gia
- 3/6/15
- Bài viết
- 22
- Được thích
- 1
Mình có file như sau. Mình cần đếm số phần tử của dãy, phân cách nhau bởi khoảng trống.
Cái khó là tốc độ cua chương trình. Nếu code thông thường thì mình cũng làm được:
link file
http://www.mediafire.com/view/9f9qk3c4saht4ce/hoicacban.xlsm
Ai biết xin mách dùm.
Cái khó là tốc độ cua chương trình. Nếu code thông thường thì mình cũng làm được:
link file
http://www.mediafire.com/view/9f9qk3c4saht4ce/hoicacban.xlsm
Mã:
Sub fd()
Dim i As Integer
Dim icuoi As Integer
Dim dem As Integer
Dim vitri As Integer
dem = 0
icuoi = 40
For i = 3 To icuoi Step 1
If Sheets("Sheet1").Cells(i, 3).Value = "" Then
Sheets("Sheet1").Cells(vitri, 5).Value = "phan tu:" & dem
dem = 0
End If
If Sheets("Sheet1").Cells(i, 3).Value <> "" And Sheets("Sheet1").Cells(i + 1, 3).Value = "" Then
vitri = i
dem = dem + 1
End If
If Sheets("Sheet1").Cells(i, 3).Value <> "" And Sheets("Sheet1").Cells(i + 1, 3).Value <> "" Then dem = dem + 1
Next i
End Sub
Lần chỉnh sửa cuối: