Excel中实现2位数字定位组合,统计组合结果以6个数字为例A1 (123456)B1（456789）从A1格子中取1个数字与B1格子的1个数字进行组合,[定位置A1+B1形式组合],希望在C1中输出组合的结果即{14 15 16 17 18 19 2
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/05 19:32:35
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