我也开个贴,代做VBA

有需要的可以回贴留言,有空就尽量回复.如果有急用的可以加我Q 55444524

自夸精通可不好

这些应该是最基础最基础的

Sub tihuan()
Dim wk As Worksheet
For Each wk In Sheets
If wk.Cells(2, 2).Value Like "*2?3*" Then
Range("c12:c10000").Replace "2", "4"
Else
Range("c12:c10000").Replace "2", "3"
End If
Next
End Sub
我想问一下，我这个为什么循环不了啊

楼主着实是热心肠，不过你话说这么满，我都很担心你吃亏

楼主技术不错，也很有耐心

向你学习

麻烦帮我写一个简单的 有附件，谢谢

回复16楼
Sub abc()
On Error Resume Next
For Each sht In ThisWorkbook.Sheets
sht.Rows("2:2").Find("手机号").EntireColumn.Delete
Next sht
End Sub