tự đông loại bỏ hàng trắng ko có dư lieu excel

[tuongktt]

minh đang làm fiel này, cả nhà có nào tự động loại bỏ hàng trăng ko có dự lieu ko ạ

 

[Nhất Chi Lan]

Qua đây chơi này người ơi

 

[tuongktt]

Qua đây chơi này người ơi

em chưa làm được, có ai làm hộ emfiel em ko ạ

 

[VetMini]

Qua đây chơi này người ơi

Ai siêng đi chơi xa vậy. Có cơm nấu xong rồi thì dọn ra mâm đi.

(đọc lời văn gõ ẩu của thớt mà bắt ớn - điệu này cơm lên mâm có thể còn phải kiếm người đút)

 

[tuongktt]

Ai siêng đi chơi xa vậy. Có cơm nấu xong rồi thì dọn ra mâm đi.

(đọc lời văn gõ ẩu của thớt mà bắt ớn - điệu này cơm lên mâm có thể còn phải kiếm người đút)

vâng ạ, em đánh bàn máy tính hơi bị dinh chuột, mong cả nhà thông cảm

 

[hunglam123]

minh đang làm fiel này, cả nhà có nào tự động loại bỏ hàng trăng ko có dự lieu ko ạ

Sub IphonePromax12()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Col As Long, a As Long
a = Application.Max(Range("A65000").End(xlUp).Row, 3)
sArr = Range("A3:A" & a).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
    If sArr(I, 1) <> "" Then
        K = K + 1
        For Col = 1 To 1
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
On Error Resume Next
Range("C3:C100000").ClearContents
Range("C3").Resize(K, 1) = dArr
End Sub

 

[be_09]

vâng ạ, em đánh bàn máy tính hơi bị dinh chuột, mong cả nhà thông cảm

Thử một đoạn code đơn giản này:

Sub Copy()
    Dim CellCuoi As Integer
    CellCuoi = Range("A" & Rows.Count).End(xlUp).Row
    Range("C3:C" & CellCuoi).ClearContents
    Range("A3:A" & CellCuoi).SpecialCells _
    (xlCellTypeConstants, 2).Copy Range("C3")
End Sub

 

[hunglam123]

Thử một đoạn code đơn giản này:

Sub Copy()
    Dim CellCuoi As Integer
    CellCuoi = Range("A" & Rows.Count).End(xlUp).Row
    Range("A3:A" & CellCuoi).SpecialCells _
    (xlCellTypeConstants, 2).Copy Range("C3")
End Sub

Code chưa đúng với 2 trường hợp .
1 . nếu cột tên đó người ta nhập là SỐ hết là báo lỗi, 2 Vừa chữ vừa số là lọc ra không thấy số


2. Thiếu code Reset Ouput
Range("C3:C100000").ClearContents
Vì khi người ta thay đổi dữ liệu thì chẳng lẽ mấy kết quả trước lại nằm yên chần ngần đó
Góp ý. Tôi là 1 người test rất kỷ rất kỷ lưỡng từng chi tiết ngõ ngách

 

[PacificPR]

Sub IphonePromax12()
Dim sArr(), dArr(), I As Long, K As Long, R As Long, Col As Long, a As Long
a = Application.Max(Range("A65000").End(xlUp).Row, 3)
sArr = Range("A3:A" & a).Value
R = UBound(sArr)
ReDim dArr(1 To R, 1 To 1)
For I = 1 To R
    If sArr(I, 1) <> "" Then
        K = K + 1
        For Col = 1 To 1
            dArr(K, Col) = sArr(I, Col)
        Next Col
    End If
Next I
On Error Resume Next
Range("C3:C100000").ClearContents
Range("C3").Resize(K, 1) = dArr
End Sub

Ủa còn có kiểu For col = 1 to 1 nữa cơ à. Cái này gọi là quá kỹ rồi

 

[be_09]

Code chưa đúng với 2 trường hợp .
1 . nếu cột tên đó người ta nhập là SỐ hết là báo lỗi, 2 Vừa chữ vừa số là lọc ra không thấy số
2. Thiếu code Reset Ouput
Range("C3:C100000").ClearContents
Vì khi người ta thay đổi dữ liệu thì chẳng lẽ mấy kết quả trước lại nằm yên chần ngần đó
Góp ý. Tôi là 1 người test rất kỷ rất kỷ lưỡng từng chi tiết ngõ ngách

Người ta hỏi tên chứ đâu có ai ghi họ tên bằng số đâu, nếu muốn cả số thì thêm một tý nữa thôi, nhưng chủ Topic ghi họ tên thì cần gì phải thêm code.
Muốn xóa dữ liệu trước đó thì thêm dòng này:

Range("C3:C" & CellCuoi).ClearContents

 

[hunglam123]

Ủa còn có kiểu For col = 1 to 1 nữa cơ à. Cái này gọi là quá kỹ rồi

Trời. kỷ lắm. Để phòng sau này người ta không làm 1 cột mà làm nhiều cột Em ạ. Phải dự đoán trước tính huồng người ta muốn nói tiếp theo. Mình trả lời 1 phát là tổng quát luôn

Bài đã được tự động gộp: 22/4/20

Người ta hỏi tên chứ đâu có ai ghi họ tên bằng số đâu, nếu muốn cả số thì thêm một tý nữa thôi, nhưng chủ Topic ghi họ tên thì cần gì phải thêm code.
Muốn xóa dữ liệu trước đó thì thêm dòng này:

Range("C3:C" & CellCuoi).ClearContents

Họ không nói do người ta quên hoặc thậm chí họ không biết tình huống đó. Mình viết code là phải dự đoán trước các tình huống, ở mọi tình huống code đều đúng. Góp ý vui vẽ trao đổi thêm

 

[VetMini]

...
Họ không nói do người ta quên hoặc thậm chí họ không biết tình huống đó. Mình viết code là phải dự đoán trước các tình huống, ở mọi tình huống code đều đúng.

Nói chuyện giống quá. Hèn gì không hề chê cốt của "người ấy" bao giờ.

Mình nổi tiếng làm ngạo mạn (arrogant). Nhưng phải cam nhường chức tự phụ (cocky) cho hai người này.

 

[Nhất Chi Lan]

em chưa làm được, có ai làm hộ emfiel em ko ạ

Lả nhỉ

 

[tuongktt]

Lả nhỉ

cảm ơn bạn