具体问题我也不知道,你先看看这个sub mysub() dim str as string, a, n as integer str = [b1] n = 1 a = instr(str, ",") do while a > 0 b = left(str, a) a3 = left([a1], 3) sheet1.cells(n, 3).value = replace(b, ",", a3) n = n + 1 str = mid(str, a + 1, 10) a = instr(str, ",") loop end sub 20210311