如何所有单元格的内容互相替换？

510621666

如何所有单元格的内容互相替换？例如所有的1替换为2，所有的2替换为1。

niko88819

1. Sub SwapValues()
   
2.     Dim cell As Range
   
3.     Dim ws As Worksheet
   
4.     For Each ws In ThisWorkbook.Worksheets
   
5.         For Each cell In ws.UsedRange
   
6.             If IsNumeric(cell.Value) Then
   
7.                 If cell.Value = 1 Then
   
8.                     cell.Value = 2
   
9.                 ElseIf cell.Value = 2 Then
   
10.                     cell.Value = 1
    
11.                 End If
    
12.             End If
    
13.         Next cell
    
14.     Next ws
    
15. End Sub

复制代码

theking_wsz

找个媒婆把  先把1换成媒婆   再把2换成1   再把媒婆换成2

wengjh8848

痛痛痛痛

VBA自己换自己

niko88819

如果是由510621666变成>>>> 520612666

1. Sub ReplaceNumbers()
   
2.     Dim cell As Range
   
3.     Dim ws As Worksheet
   
4.     Dim cellValue As String
   
5.     Dim newValue As String
   
6.    
   
7.     For Each ws In ThisWorkbook.Worksheets
   
8.         For Each cell In ws.UsedRange
   
9.             cellValue = cell.Value
   
10.             newValue = ""
    
11.             For i = 1 To Len(cellValue)
    
12.                 If Mid(cellValue, i, 1) = "1" Then
    
13.                     newValue = newValue & "2"
    
14.                 ElseIf Mid(cellValue, i, 1) = "2" Then
    
15.                     newValue = newValue & "1"
    
16.                 Else
    
17.                     newValue = newValue & Mid(cellValue, i, 1)
    
18.                 End If
    
19.             Next i
    
20.             cell.Value = newValue
    
21.         Next cell
    
22.     Next ws
    
23. End Sub

复制代码

朝露孤烟

这个表达并不严格。请上附件说明吧。

510621666

niko88819 发表于 2024-5-1 10:49
如果是由510621666变成>>>> 520612666

想不要vba解决。

niko88819

510621666 发表于 2024-5-1 11:06
想不要vba解决。

你上传附件，看你数据内容而定呗，是公式或是VBA

痛痛痛痛

新表替换旧表 ，比如在在sheet2的A1
=SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(sheet1!A1,1,"&&"),2,"##"),"&&",2),"##",1)

类似于下图