Xin hỏi code xóa nhiều vùng trong bảng tính bằng VBA (1 người xem)

[hoang0569]

Tôi muốn xóa vùng A120, E1:H2O, U1:U20 bằng VBA,có thể xóa cùng lúc bằng 1 code được không, mong các bạn giúp, cảm ơn nhiều.

 

[Let'GâuGâu]

Tôi muốn xóa vùng A120, E1:H2O, U1:U20 bằng VBA,có thể xóa cùng lúc bằng 1 code được không, mong các bạn giúp, cảm ơn nhiều.

Range([A1:A10], [B1:B10]).Clear
hoặc
Union([A1:A10], [B1:B10]).Clear

 

[Kiều Mạnh]

Tôi muốn xóa vùng A120, E1:H2O, U1:U20 bằng VBA,có thể xóa cùng lúc bằng 1 code được không, mong các bạn giúp, cảm ơn nhiều.

Thì thử vậy đi coi xong tính tiếp
Range("G6:G82,E50:E82,H6:H82,J6:L82").ClearContents

 

[ngocnv_hn88]

Tôi muốn xóa vùng A120, E1:H2O, U1:U20 bằng VBA,có thể xóa cùng lúc bằng 1 code được không, mong các bạn giúp, cảm ơn nhiều.

Cái này rất dễ bạn nhé:

Sub XoaDL()
Dim a as String
a="A120,E1:H20,U1:U20"
Range(a).Clear hoặc Range(a).ClearContents
End sub

 

[phulien1902]

Tôi muốn xóa vùng A120, E1:H2O, U1:U20 bằng VBA,có thể xóa cùng lúc bằng 1 code được không, mong các bạn giúp, cảm ơn nhiều.

Dùng cách này xem:
[A120, E1:H2O, U1:U20].value=""

 

[hoang0569]

Cho mình hỏi thêm, có thể chỉ xóa số mà không xóa Text được không bạn?

 

[seikoqn]

Cho mình hỏi thêm, có thể chỉ xóa số mà không xóa Text được không bạn?

Được bạn ạ!!!!!!!!!!!!!!!!!!!!!!!!!!!!

 

[hoang0569]

Giúp mình code VBA chỉ xóa số không xóa Text đi bạn.

 

[giangleloi]

Giúp mình code VBA chỉ xóa số không xóa Text đi bạn.

Dạng text mà bạn nói chỉ là "chữ" hay cả chữ lẫn số dạng text?

 

[seikoqn]

Giúp mình code VBA chỉ xóa số không xóa Text đi bạn.

Bạn test thử nhé!!!!!!! Để thay đổi vùng cần xóa chắc bạn đã biết!

Public Sub ClearRange()
Dim rng As Range, cll As Range
With ActiveSheet
Set rng = Union(.Range("A1:B20"), .Range("D1:E20"), .Range("I1:I20")): End With
For Each cll In rng
    If IsNumeric(cll) Then
        cll = ""
    End If
Next cll
End Sub

 

[hoang0569]

Không xóa dạng Text chữ thôi bạn ah. ( Bạn cho mình cả code xóa dạng Text cả chữ và số dạng Text, mình tham khảo thêm bạn nhé.

 

[phulien1902]

Không xóa dạng Text chữ thôi bạn ah. ( Bạn cho mình cả code xóa dạng Text cả chữ và số dạng Text, mình tham khảo thêm bạn nhé.

Vậy thì bạn tham khảo Code dưới đây nhé:

Sub RemoveAlphas()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        xOut = ""
        For i = 1 To Len(Rng.Value)
            xTemp = Mid(Rng.Value, i, 1)
            If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
                xStr = ""
            Else
                xStr = xTemp
            End If
            xOut = xOut & xStr
        Next i
        Rng.Value = xOut
    Next
End Sub

 

[hoang0569]

Mình dùng Excel 2003 bạn nhé.

 

[giangleloi]

Code #12 số dạng Text chưa có xóa được mà.

 

[seikoqn]

Vậy thì bạn tham khảo Code dưới đây nhé:

Sub RemoveAlphas()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        xOut = ""
        For i = 1 To Len(Rng.Value)
            xTemp = Mid(Rng.Value, i, 1)
            If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
                xStr = ""
            Else
                xStr = xTemp
            End If
            xOut = xOut & xStr
        Next i
        Rng.Value = xOut
    Next
End Sub

Người ta nhờ xóa số giữ lại text, bạn lại đi làm ngược lại!

 

[giangleloi]

Người ta nhờ xóa số giữ lại text, bạn lại đi làm ngược lại!

Bài #12 làm đúng theo yêu cầu bài #11 rồi, chỉ có điều chưa tới, có chăng bạn đang nhầm lẫn???

 

[seikoqn]

Chắc thường là phải có cái...........gì gì đó..........thì sẽ hết gọi là lẫn hay nhầm!!!

Có cái .... nhà.....

 

[phulien1902]

Người ta nhờ xóa số giữ lại text, bạn lại đi làm ngược lại!

Muốn xóa số, giữ lại chữ thì dùng code này:

Sub RemoveNotAlphas()
    Dim Rng As Range
    Dim WorkRng As Range
    On Error Resume Next
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each Rng In WorkRng
        xOut = ""
        For i = 1 To Len(Rng.Value)
            xTemp = Mid(Rng.Value, i, 1)
            If xTemp Like "[a-z.]" Or xTemp Like "[A-Z.]" Then
                xStr = xTemp
            Else
                xStr = ""
            End If
            xOut = xOut & xStr
        Next i
        Rng.Value = xOut
    Next
End Sub

 

[hoang0569]

Mình đã chạy thử trên Excel 2003, xóa được chữ nhưng hỏng hết Font chữ bạn à

 

[seikoqn]

Mình dùng Excel 2003 bạn nhé.

Của bạn đây..........................