Excel我一单元格内有很多数值，怎么使这个单元内的所有数值除以同一个数值，比如下图

发布网友发布时间：2022-05-16 01:18

我来回答

共5个回答

热心网友时间：2023-10-08 12:44

在C3单元格中键入“=”；

接着鼠标单击“B3”单元格；

键盘键入“/”;

在公式B3/A1中A的前后分别添加“$”符号，B3/$A$1；

点击“Enter”键；

鼠标移到C3单元格的右下角，看到“+”号时，按住拖动鼠标，即可得到结果；

如果不添加$符号，如图所示；

当继续拖动鼠标时，发现数值发生变化，还出现错误；

点击其中的一个结果，发现除以的单元格数值发生变化，不再是A1，所以想要均除以一个数值时，需要用到$这个符号；

热心网友时间：2023-10-08 12:45

这个需求只有使用自定义函数来实现，我的函数代码和公式如下图：

可以在文件里面点录制宏，然后停止录制，编辑宏，删除所有内容，粘贴我的代码：

Option Explicit

Function 拆分后除(s, n)
    Dim arr, i
    arr = Split(s, ",")
    For i = LBound(arr) To UBound(arr)
        arr(i) = Format(arr(i) / n, "0.00")
    Next i
    拆分后除 = Join(arr, ",")
End Function

追问可以可以，大神真棒

热心网友时间：2023-10-08 12:45

Function chu(rng As Range, rg As Range)
arr = Split(rng, ",")
For n = 0 To UBound(arr)
sr = sr & Format(arr(n) / rg.Value, "0.00") & ","
Next n
chu = Left(sr, Len(sr) - 1)
End Function

alt+f11打开vbe编辑界面，左侧工程资源管理器中鼠标右击插入模块，将代码复制进去。

追问可以的！

热心网友时间：2023-10-08 12:46

没想到这种处理的函数，可以分列后作运算，再用concatnate、textjoin等函数合并

热心网友时间：2023-10-08 12:47

高版本的excel(2019或者365），可以使用textjoin函数来实现

=TEXTJOIN(",",,TRIM(MID(SUBSTITUTE(A1,",",REPT(" ",100)),ROW(INDIRECT("1:"&LEN(A1)-LEN(SUBSTITUTE(A1,",",))+1))*100-99,100))/B1)

数组公式