การลบข้อมูลในเชลล์ถัดไปจากเซลล์ที่เราค้นหา

[Kanok]

ต้องการลบข้อมูลที่อยู่ในเซลล์ัดไปจาก เซลล์ที่เราค้นเจอ โดยมีขั้นตอนดังนี้ :

1) เซลล์ที่มีข้อความขึ้นต้นด้วย "MQ" ของข้อมูลในช่วงคอลัมภ์ A ถึงคอลัมภ์ D
2) จากนั้นลบข้อมูลของเซลล์ที่อยู่ในคอลัมภ์ัถัดไป (แถวเดียวกัน)
ตัวอย่างเช่น : เจอข้อมูล MQ38 ใน cells(5,1) จากนั้นต้องการลบข้อมูลใน cells(5,2)

มีโค้ดเบื้องต้นมา ดังนี้ค่ะ

Code: Select all

Sub test1()

 With Sheets("Sheet1").Range("A:D")

  Set x = Cells.Find(What:="MQ", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
     x.Offset(0, 1).Clear

End With

End Sub

ขอคำี้แนะด้วยค่ะ

[img]

Q6_การลบข้อมูลองเซลล์ถัดไป.jpg

[/img]

ไฟล์แนบค่ะ

Q6_การลบข้อมูลในเซลล์ถัดไป.xlsm

[snasui]

ตัวอย่าง Code ครับ

Code: Select all

Sub test0()
    Dim rAll As Range, r As Range
    Set rAll = ActiveSheet.UsedRange
    For Each r In rAll
        If InStr(r, "MQ") > 0 Then
            r.Offset(0, 1).ClearContents
        End If
    Next r
End Sub

[Kanok]

ตัวอย่าง Code ครับ

Code: Select all

Sub test0()
    Dim rAll As Range, r As Range
    Set rAll = ActiveSheet.UsedRange
    For Each r In rAll
        If InStr(r, "MQ") > 0 Then
            r.Offset(0, 1).ClearContents
        End If
    Next r
End Sub

ขอบคุณมากค่ะ สามารถรันได้เรียบร้อยแล้ว