识别位置信息写求和公式

天地一相 · 发表于 2024-4-9 09:51

本帖最后由天地一相于 2024-4-9 10:51 编辑

感谢帮助！使用VBA写入公式，详见截图和附件。

chxw68 · 发表于 2024-4-9 10:21

详见附件。

taller · 发表于 2024-4-9 10:04

首数表示S3:AA3的位置 -- 这是什么意思? 19 和结果4 有什么关系？

天地一相 · 发表于 2024-4-9 10:14

taller 发表于 2024-4-9 10:04
首数表示S3:AA3的位置 -- 这是什么意思? 19 和结果4 有什么关系？

谢谢，S3:AA3，区域是9个单元格，例如一段2位数“36”，首个3就表示是这个区域内的第3个单元格。你点击下我示例的公式能更直观点。我使用中文在S:AA区域标示了下位置，次位的6，就表示是S2:AA2区域的第6个单元格

chxw68 · 发表于 2024-4-9 10:20

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 2).End(xlUp).Row
arr = .Range("b1:b" & r)
For i = 5 To UBound(arr)
xm = Split(arr(i, 1), "-")
For j = 0 To UBound(xm)
x1 = Val(Left(xm(j), 1))
x2 = Val(Right(xm(j), 1))
.Cells(i, j + 10).FormulaR1C1 = "=MOD(R3C" & 18 + x1 & "+R2C" & 18 + x2 & ",10)"
Next
Next
End With
End Sub

复制代码

半百 · 发表于 2024-4-9 10:25

本帖最后由半百于 2024-4-9 11:16 编辑

忘了取余数

短一点的

yynrzwh · 发表于 2024-4-9 10:35

写求合.zip (17.98 KB, 下载次数: 0)

jivy1212 · 发表于 2024-4-9 10:59

复制代码

区域数组下拉

		自动登录	找回密码
密码			免费注册

[已解决] 识别位置信息写求和公式