如何用 excel 的VBA 组合 A1 B1 C1 输入的数字 组合成3位数的数字

来源：百度知道 编辑：UC知道 时间：2024/06/01 23:45:19
A1 B1 C1 输入的数字0-9 位数不限 合数成000-999的 3位数字
3位数的 000-999 之间的 而且 都有A1 B1 C1 的值 如A1 12 B1 2 C1 58 有 128
举例
输入 A1 12 B1 2 C1 58 组合出来的数字
128
225
228

Private Sub CommandButton1_Click()
Dim ia As Integer, ib As Integer, ic As Integer
Dim i As Integer
Dim j As Integer
For i = 1 To Range("A65536").End(xlUp).Row
j = 4
For ia = 1 To Len(Range("A" & i).Value)
For ib = 1 To Len(Range("B" & i).Value)
For ic = 1 To Len(Range("C" & i).Value)
Cells(i, j) = Mid(Range("A" & i).Value, ia, 1) & Mid(Range("B" & i).Value, ib, 1) & Mid(Range("C" & i).Value, ic, 1)
j = j + 1
Next ic
Next ib
Next ia
Next i
End Sub

在d1 输入 =A1&B1&C1

何必用到vba

方法1：D1=CONCATENATE(A1,B1,C1)
方法2：D1=A1&B1&C1