如何用VBA解决金额拆分

即把借方金额拆分到P-X列；
把贷方金额拆分到Z-AH列。
详见附件

建议用用友软件

Private Sub CommandButton1_Click()
n = [f:g].Find("*", , , , xlByRows, 2).Row
For i = 2 To n
  Range("p" & i & ":x" & i) = F(Cells(i, 6))
  Range("z" & i & ":ah" & i) = F(Cells(i, 7))
Next
End Sub
Function F(S)
S = Format(S, "0.00")
n = Len(S)
Dim a(8)
j = 8
For i = n To 1 Step -1
  If Mid(S, i, 1) <> "." Then a(j) = Mid(S, i, 1): j = j - 1
Next
F = a
End Function

这类问题,用函数是比较成熟的.如一定要用VBA,这里给一个例子;
N = Format([f2] * 100, "0")
N = Space(9 - Len(N)) & N
For I = 1 To 9
    Cells(2, 15 + I) = Mid(N, I, 1)
Next