Cần giúp viết Code đồng thời gõ số 1 vào các ô trống (Mà không dùng For...Next, Find) (1 người xem)

[hung2412]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Dọc theo cột B có các ô trống xen kẽ giữa các ô có dữ liệu. Để chọn (Bôi đen) các ô trống xen kẽ đó, tôi xài Code:

Selection.SpecialCells(xlCellTypeBlanks).Select

=> Vấn đề được đặt ra ở đây là: Sau khi chọn (Bôi đen) các ô trống xen kẽ đó thì có Code nào viết tiếp Code trên để đồng thời điền số 1 vào các ô trống đó (Mà không phải dùng For...Next, Find(...))?
Ví dụ: Các ô B6, B7, B9, B13, B14, B15, B18, B21, B22, B27 dọc theo cột B là các ô trống => Điền đồng thời số 1 vào các ô trống đó.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[Cá ngừ F1]

Vẫn For ... Next mà không cần Find có được không?

Sub DanhSo()
Dim Rng(), i&
Rng = Sheet1.Range([B5], [D2000].End(3)).Value
For i = 1 To UBound(Rng)
    If Rng(i, 1) = "" Then
        Rng(i, 3) = 1
    Else
        Rng(i, 3) = Rng(i, 1)
    End If
Next
[B5].Resize(i - 1, 3) = Rng
End Sub

 

[sealand]

Sao không viết lại nhỉ:

Selection.SpecialCells(xlCellTypeBlanks).Value=1

Hoặc được cả 2:


With Selection.SpecialCells(xlCellTypeBlanks)
.Value=1
.Select
End With

 

[be_09]

Thử vầy xem.

 Sub DienSo()    
    Columns("B:B").Select    
    Selection.SpecialCells(xlCellTypeBlanks).Value = 1
End Sub

 

[hung2412]

Thử vầy xem.

 Sub DienSo()    
    Columns("B:B").Select    
    Selection.SpecialCells(xlCellTypeBlanks).Value = 1
End Sub

Tôi thử bỏ chữ Value đi vẫn chạy được.

 

[nmhung49]

Tôi thử bỏ chữ Value đi vẫn chạy được.

Nhưng khuyên bạn không nên có chữ đó đôi lúc sẽ gây rắc rối cho bạn.

 

[Quang_Hải]

Thử vầy xem.

 Sub DienSo()    
    Columns("B:B").Select    
    Selection.SpecialCells(xlCellTypeBlanks).Value = 1
End Sub

Sao không bỏ bớt nhân sự đi hả anh?

[B:B].SpecialCells(xlCellTypeBlanks).Value = 1

 

[SA_DQ]

[thongbao]Tôi thử bỏ chữ Value đi vẫn chạy được.[/thongbao]

(ái được của bạn thiệt là nhỏ so với sự mất mát đó nha; Đó là tính cách cần có của người viết VBA nói riêng. . . . .

 

[be_09]

Đối với Excel 2003 những Cell bị Merger and Center nó sẽ tự bỏ nhập ô và gán dữ liệu vào từng Cell, nhưng 2010 thì không được(các bạn tìm hiểu thêm vì sao?).

Không biết nhận định của tôi có đúng không? các bạn hãy thử xem.