tìm nhiều giá trị khác nhau trong ctrl + F và thay thế nó bằng giá trị trắng

[titanic]

nghỉ không được nhờ các anh xem qua chi bảo thêm.
tìm nhiều giá tri cùng 1 lúc trong nhiều sheet1,sheet2,sheet3 và xóa value khỏi ô đó trong bảng tín
xem qua file em đính kèm nhé

 

[vuminh1601]

Bạn click chuột phải vào sheet và chọn Slect All sheets -->> Ctrl +h ---> Find what : gõ vào cái cần xoá, Rep: để trống --->>> Replace All --->>> OK
Bạn thử xem nhé. Máy mình đang bị lỗi không đọc được file rar

 

[SA_DQ]

Bạn thử với macro sự kiện tại 'Tim kiem", như sau

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, [B3]) Is Nothing Then
   Dim Sh As Worksheet, sRng As Range
   Dim MyAdd As String:                Dim Co As Boolean
   Range("c3:E999").ClearContents
   For Each Sh In Worksheets
      Set sRng = Sh.Cells.Find(Target.Value, , xlFormulas, xlWhole)
      If Not sRng Is Nothing Then
         MyAdd = sRng.Address
         Do
            With [e65500].End(xlUp).Offset(1)
               If Sh.Name <> "Tim kiem" Then
                  Co = Not Co
                  .Value = Sh.Name & "." & sRng.Address
                  .Offset(, -2).Resize(, 2).Value = sRng.Offset(, 1).Resize(, 2).Value
               End If
            End With
            Set sRng = Sh.Cells.FindNext(sRng)
         Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
      End If
   Next Sh
   If Co = False Then [c3].Value = "This's nothing"
 End If
End Sub