作业帮Excel中实现2位数字定位组合,统计组合结果以6个数字为例A1 (123456)B1（456789）从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 2
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/18 19:43:02
![Excel中实现2位数字定位组合,统计组合结果以6个数字为例A1 (123456)B1（456789）从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 2](/uploads/image/z/3745434-66-4.jpg?t=Excel%E4%B8%AD%E5%AE%9E%E7%8E%B02%E4%BD%8D%E6%95%B0%E5%AD%97%E5%AE%9A%E4%BD%8D%E7%BB%84%E5%90%88%2C%E7%BB%9F%E8%AE%A1%E7%BB%84%E5%90%88%E7%BB%93%E6%9E%9C%E4%BB%A56%E4%B8%AA%E6%95%B0%E5%AD%97%E4%B8%BA%E4%BE%8BA1+%28123456%29B1%EF%BC%88456789%EF%BC%89%E4%BB%8EA1%E6%A0%BC%E5%AD%90%E4%B8%AD%E5%8F%961%E4%B8%AA%E6%95%B0%E5%AD%97%E4%B8%8EB1%E6%A0%BC%E5%AD%90%E7%9A%841%E4%B8%AA%E6%95%B0%E5%AD%97%E8%BF%9B%E8%A1%8C%E7%BB%84%E5%90%88%2C%5B%E5%AE%9A%E4%BD%8D%E7%BD%AEA1%2BB1%E5%BD%A2%E5%BC%8F%E7%BB%84%E5%90%88%5D%2C%E5%B8%8C%E6%9C%9B%E5%9C%A8C1%E4%B8%AD%E8%BE%93%E5%87%BA%E7%BB%84%E5%90%88%E7%9A%84%E7%BB%93%E6%9E%9C%E5%8D%B3%7B14+15+16+17+18+19+2)
Excel中实现2位数字定位组合,统计组合结果以6个数字为例A1 (123456)B1（456789）从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 2
Excel中实现2位数字定位组合,统计组合结果
以6个数字为例
A1 (123456)
B1（456789）
从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 24 25 26 27 28 29 34 35 36 37 38 39 44 45 46 47 48 49 54 55 56 57 58 59 64 65 66 67 68 69}
做无限行,拷贝大量数据进去,在C列输出结果
Excel中实现2位数字定位组合,统计组合结果以6个数字为例A1 (123456)B1（456789）从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 2
我试过做1000行的话,稍有一些延迟了,以下代码还是做100行重算,请参考.
Private Sub Worksheet_Change(ByVal Target As Range)
If ((Target.Column = 1) Or (Target.Column = 2)) Then
For iRow = 1 To 100
DataA = Cells(iRow,1)
SStr = ""
For i = 1 To Len(DataA)
BitA = Left(DataA,1)
DataA = Right(DataA,Len(DataA) - 1)
DataB = Cells(iRow,2)
For j = 1 To Len(DataB)
BitB = Left(DataB,1)
DataB = Right(DataB,Len(DataB) - 1)
SStr = SStr + " " + BitA + BitB
Next j
Next i
Cells(iRow,3) = Trim(SStr)
Next iRow
End If
End Sub