VBA如何替换第一个出现的符号为换行符或圆点?答:请参考以下代码,希望对您有帮助:Sub replaceA()Dim rng As Range, sr For Each rng In ActiveSheet.Range("A1").CurrentRegion If InStr(rng, "/") Then sr = Replace(rng, "/", vbCrLf, , 1) '换成换行符 'sr = Replace(rng, "/", ".", , 1)'换成点 rng.Value = sr End ...