[Cần giúp] Tạo macro tìm kiếm và thay thế theo điều kiện

[chuhungls]

E cần làm 1 macro như yêu cầu trong hình.. các bác giúp e với
thanks

 

[HieuCD]

View attachment 196105
E cần làm 1 macro như yêu cầu trong hình.. các bác giúp e với
Cảm ơn

Thay thế chữ "a" hay ký tự đầu tiên?

 

[Ba Tê]

View attachment 196105
E cần làm 1 macro như yêu cầu trong hình.. các bác giúp e với
Cảm ơn

Option Explicit

Public Sub Gpe()
Dim x As Variant, Arr(), I As Long, J As Long, Rws As Long, Col As Long
Arr = Range("A2", Range("A2").End(xlDown)).Resize(, Range("A2").End(xlToRight).Column)
Rws = UBound(Arr, 1): Col = UBound(Arr, 2)
For I = 1 To Rws
    x = Arr(I, 1)
    For J = 2 To Col
        Arr(I, J) = x & Mid(Arr(I, J), 2, Len(Arr(I, J)))
    Next J
Next I
Range("A2").Resize(Rws, Col) = Arr
End Sub

 

[chuhungls]

Option Explicit

Public Sub Gpe()
Dim x As Variant, Arr(), I As Long, J As Long, Rws As Long, Col As Long
Arr = Range("A2", Range("A2").End(xlDown)).Resize(, Range("A2").End(xlToRight).Column)
Rws = UBound(Arr, 1): Col = UBound(Arr, 2)
For I = 1 To Rws
    x = Arr(I, 1)
    For J = 2 To Col
        Arr(I, J) = x & Mid(Arr(I, J), 2, Len(Arr(I, J)))
    Next J
Next I
Range("A2").Resize(Rws, Col) = Arr
End Sub

thanks bác.. nhưng e muốn thay tất cả chữ "a" chứ không phải riêng chữ "a" ở vị trí đầu tiên..
bác sửa lại giúp e với

 

[befaint]

Cảm ơn bác.. nhưng e muốn thay tất cả chữ "a" chứ không phải riêng chữ "a" ở vị trí đầu tiên..
bác sửa lại giúp e với

Tức là cứ gặp ký tự "a" là thay thế?

Bạn cứ đi chơi đi, 4 tháng nữa quay lại sẽ có bài giải liền.

 

[batman1]

Việc của mình mà còn lười tới mức không tạo ra dữ liệu đa dạng và mô tả rõ ràng. Vì thế những người khác mất công vô ích. Bó tay

 

[SA_DQ]

Chắc không fải lười đâu, mà tệ hơn nữa kìa!

Public Sub GPE_COM()
Dim Arr()
Dim J As Long, Col As Integer, DD As Byte
Dim TCT As String

Arr() = [B1].CurrentRegion.Offset(1, 1).Value
ReDim dArr(1 To UBound(Arr()), 1 To UBound(Arr(), 2))
For J = 2 To [A2].End(xlDown).Row
    TCT = CStr(J - 1)
    For Col = 1 To UBound(Arr(), 2) - 1
        dArr(J - 1, Col) = Replace(Arr(J - 1, Col), "a", TCT)
    Next Col
Next J
[B10].Resize(J - 1, Col - 1).Value = dArr()
End Sub

 

[VetMini]

Chắc không fải lười đâu, mà tệ hơn nữa kìa!
...

Đạt mục đích là đúng tôn chỉ rồi. Siêng hay lười đâu có khác nhau.