Xin code thêm dữ liệu (1 người xem)

[hoclaptrinh]

Nhờ mấy cao thủ cho em xin code với, em có 1 bảng số liệu giờ muốn thêm một ít dữ liệu vào thì làm thế nào??? Có file đính kèm

 

[Ngoai Thanh]

Nhờ mấy cao thủ cho em xin code với, em có 1 bảng số liệu giờ muốn thêm một ít dữ liệu vào thì làm thế nào??? Có file đính kèm

Bạn copy code dưới vào sheet So Lieu và chạy thử xem đúng ý bạn không nhé !

Sub ChenKYTU()
Dim i As Long, n As Long
n = Range("B65000").End(3).Row
For i = n To 1 Step -1
If Cells(i, 4) = "" Then
Cells(i, 4) = "NOBLOCK*0*"
End If
If Cells(i, 4) = "NOBLOCK*0*" Then
Cells(i, 4).Font.ColorIndex = 3
End If
Next i
End Sub

 

[Let'GâuGâu]

Nhờ mấy cao thủ cho em xin code với, em có 1 bảng số liệu giờ muốn thêm một ít dữ liệu vào thì làm thế nào??? Có file đính kèm

Bạn chọn D4:d110
nhấn Ctrl G==>special cell==>blank==>ok
rồi gõ ="text của bạn"

 

[doveandrose]

Sub hello()
Dim lr As Long
lr = Sheet2.[A50000].End(xlUp).Row
Sheet2.Range("A1:D" & lr).AutoFilter 4, "="
Sheet2.Range("D2:D" & lr).SpecialCells(xlCellTypeVisible).Value = "NOBLOCK*0*"
Sheet2.Range("D2:D" & lr).SpecialCells(xlCellTypeVisible).Font.ColorIndex = 3
Sheet2.Range("E1").AutoFilter
End Sub

 

[hoclaptrinh]

-> Dự là có người sẽ lại hỏi.............anh Let'GâuGâu ơi..........không được. Vì thiếu 1 bước quan trọng nữa là gõ text xong phải Ctrl+Enter thì mới Fill được![/QU
Đúng là sáng giờ ngồi ngâm cứu hoài mà chẳng được, giờ mới đọc tới đây
thank mọi người nhiều nha

 

[be_09]

-> Dự là có người sẽ lại hỏi.............anh Let'GâuGâu ơi..........không được. Vì thiếu 1 bước quan trọng nữa là gõ text xong phải Ctrl+Enter thì mới Fill được!

Nếu làm đầy đủ thì như vầy:

Chọn D1107, Ctrl+G hộp thoại Go to hiện ra, nhấn nút Special, hộp thoại Go to Special hiện ra, đánh dấu chọn Blanks và nhấn nút OK, tiếp theo vào Formule Bar gõ =D1, nhấn nút Ctrl+Enter, chọn cột D nhấn Copy và Paste Special, hộp thoại Paste Special hiện ra, đánh dấu chọn Value và nhấn nút OK (để loại bỏ hàm).