交换2个字符

Question

我有一个包含这样的字符串列：

ABCDEFG 
ACDEF 
ACDEFG 
ACFG 
ACDEFG 

我想换2个字符的数量的字符串包含这些字符。行是随机选择的。例如，我需要在3行中交换A和C（行随机选择）。预期的输出是：

CBADEFG 
CADEF 
ACDEFG 
ACFG 
CADEFG 

Answer 1

VBA方法是：

• randomises行选择（50/50）
• 检查两个 “A” 和 “C” 字符存在预交换

• 交换第一次出现只有

  

代码

Sub ACDC() 
Randomize 
Dim X 
Dim lngCnt As Long 
Dim strIn As String 
Dim strOut As String 

strIn = "A" 
strOut = "C" 
X = Range([a1], Cells(Rows.Count, "A").End(xlUp)).Value2 

For lngCnt = 1 To UBound(X) 
    If Rnd() > 0.5 Then 
    'check for both conditions 
     If InStr(X(lngCnt, 1), strIn) Then 
      If InStr(X(lngCnt, 1), strOut) Then 
       X(lngCnt, 1) = Replace(X(lngCnt, 1), strIn, "|", , 1) 
       X(lngCnt, 1) = Replace(X(lngCnt, 1), strOut, strIn, , 1) 
       X(lngCnt, 1) = Replace(X(lngCnt, 1), "|", strOut, , 1) 
      End If 
     End If 
    End If 
Next 

[b1].Resize(lngCnt - 1, 1).Value2 = X 

End Sub 

Answer 2

假设你的字符串是在A2：A6和行号的标准是E1中：G1，那就试试这个...

在B2

=IF(ISNUMBER(MATCH(ROWS(A$2:A2),$E$1:$G$1,0)),SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(A2,"C","^"),"A","C"),"^","A"),A2) 

和把它复制下来。