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

发布网友 发布时间：2024-10-24 15:13

我来回答

共3个回答

热心网友 时间：2024-11-06 00:53

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

热心网友 时间：2024-11-06 00:56

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

热心网友 时间：2024-11-06 00:52

在d1 输入 =A1&B1&C1

何必用到vba