Code xoá hàng và cột

[DUONGKHALY]

Ví dụ: Em muốn xoá từ A1 đến F20 mà chỉ 1 sheeet (sheet1), sheet2,sheet3 không xoá. Vậy code như thế nào vậy các bác.Cảm ơn

 

[ndu96081631]

Ví dụ: Em muốn xoá từ A1 đến F20 mà chỉ 1 sheeet (sheet1), sheet2,sheet3 không xoá. Vậy code như thế nào vậy các bác.Cảm ơn

Tiêu đề thì bạn nói là xóa hàng và cột
Nội dung thì bạn nói muốn xóa từ A1 đến F20
Vậy tóm lại bạn muốn xóa cái gì? Xóa từ hàng 1 đến hàng 20 và từ cột A đến cột F hay xóa nội dung trong vùng A1:F20?

 

[DUONGKHALY]

hihi, em không rành lắm, thông cảm nha, xoá vùng bác ah. Cảm ơn

 

[viehoai]

hihi, em không rành lắm, thông cảm nha, xoá vùng bác ah. Cảm ơn

Nếu chỉ xóa nội dung thôi thì bạn dùng code

Sub Xoa()
    Sheets("Sheet1").Range("A1:F20").ClearContents
End Sub

 

[DUONGKHALY]

Cho mình hỏi tiếp, ví dụ như có công thức này mình muốn hiển thị tại A1 trên sheet1 => A1= Countif(b1:b6,"2")
vậy mình Record và sửa lại, sao không đúng vậy bác
Sub Macro1()
Sheets("Sheet1").Range("A2")
ActiveCell.FormulaR1C1 = _
"=Countif(b1:b6,"2")
End Sub
Nhờ các bác chỉnh lại dùm, cảm ơn

 

[phihndhsp]

Cho mình hỏi tiếp, ví dụ như có công thức này mình muốn hiển thị tại A1 trên sheet1 => A1= Countif(b1:b6,"2")
vậy mình Record và sửa lại, sao không đúng vậy bác
Sub Macro1()
Sheets("Sheet1").Range("A2")
ActiveCell.FormulaR1C1 = _
"=Countif(b1:b6,"2")
End Sub
Nhờ các bác chỉnh lại dùm, cảm ơn

bạn thử đoạn code này nha
Range("c2").Select
ActiveCell.Formula = "=countif(a1:a5,2)"

 

[nghiaphuc]

Cho mình hỏi tiếp, ví dụ như có công thức này mình muốn hiển thị tại A1 trên sheet1 => A1= Countif(b1:b6,"2")
vậy mình Record và sửa lại, sao không đúng vậy bác
Sub Macro1()
Sheets("Sheet1").Range("A2")
ActiveCell.FormulaR1C1 = _
"=Countif(b1:b6,"2")
End Sub
Nhờ các bác chỉnh lại dùm, cảm ơn

Bạn sửa lại như vầy nhé:

Sub Test()
    Sheets("Sheet1").Range("A1").FormulaR1C1 = "=COUNTIF(RC[1]:R[5]C[1],2)"
End Sub

 

[DUONGKHALY]

Vậy mình muốn 1 vùng A1:A15 chẳng hạn, lúc này công thức thay đổi thì code thế nào vậy bác. Cảm ơn

 

[nmhung49]

Vậy mình muốn 1 vùng A1:A15 chẳng hạn, lúc này công thức thay đổi thì code thế nào vậy bác. Cảm ơn

Bạn sửa lại thành
Sub Test()
    Sheets("Sheet1").Range("A1:A15").Formula = "=COUNTIF(RC[1]:R[5]C[1],2)"
End Sub

Bạn nên record macro thì bạn sẽ hiểu

 

[phihndhsp]

Vậy mình muốn 1 vùng A1:A15 chẳng hạn, lúc này công thức thay đổi thì code thế nào vậy bác. Cảm ơn

Ý bạn là đếm số ô có giá trị 2 và ghi kết quả cho tất cả vùng A1:A15 ?
Nếu đúng thì bạn xem công thức bên dưới nha

Range("A1:A15").Select
ActiveCell.Formula = "=countif(b1:b5,2)"
Selection.FormulaArray = "=COUNTIF(b1:b5,2)"
Range("A1").Select

 

[nghiaphuc]

Vậy mình muốn 1 vùng A1:A15 chẳng hạn, lúc này công thức thay đổi thì code thế nào vậy bác. Cảm ơn

Thì cũng công thức trên thôi, chỉ cần thay Range("A1") thành Range("A1:A15") là được. Cái hay của FormulaR1C1 là ở chỗ đó đấy bạn, chỉ cần 1 công thức duy nhất cho cả vùng.

 

[DUONGKHALY]

Ý bạn là đếm số ô có giá trị 2 và ghi kết quả cho tất cả vùng A1:A15 ?
Nếu đúng thì bạn xem công thức bên dưới nha

Range("A1:A15").Select
ActiveCell.Formula = "=countif(b1:b5,2)"
Selection.FormulaArray = "=COUNTIF(b1:b5,2)"
Range("A1").Select

cảm ơn bạn, chưa đúng ý mình.