求助一段代码。

wqq2006 · 发表于 2024-12-14 15:10

左边表格B列，有一些行文字为：同上#+编号1,2,3.。。。。。可能有一行也可能是多行，意思是这个构件和上面那个是同一构件，需要换成相同的名称
需要做到，把同上#+编号文字全部换成上面的文字，比如这个把B4，B5单元格内文字换成：KLb5(4) 300x600，把B8、B9、B10、B11全部换成：Lbg2(4) 200x500，以此类推一直到底
"同时将G列原构件的数值改为本构件的数值-下面相同构件的值，即8-2-2=4。所以G3改为4，G7改为8-2-2-2=2。
假如这个单元格没有数字，则不运算。

chxw68 · 发表于 2024-12-14 15:24

Sub test()
Dim r%, i%
Dim arr, brr
With Worksheets("sheet1")
r = .Cells(.Rows.Count, 1).End(xlUp).Row
arr = .Range("a3:g" & r)
For i = 1 To UBound(arr)
If Left(arr(i, 2), 2) <> "同上" Then
x = i
Else
arr(i, 2) = arr(x, 2)
arr(x, 7) = arr(x, 7) - arr(i, 7)
End If
Next
.Range("a3:g" & r) = arr
End With
End Sub

复制代码

chxw68 · 发表于 2024-12-14 15:25

简单问题。

shiruiqiang · 发表于 2024-12-14 15:27

1、

longwin · 发表于 2024-12-14 15:31

附件供参考。。。。。

xlj310 · 发表于 2024-12-14 15:32

z865593849 · 发表于 2024-12-14 15:35

求助一段代码。

wqq2006 · 发表于 2024-12-14 15:59

多谢大伙，祝大家生活快乐，家庭幸福，万事如意发大财。

wqq2006 · 发表于 2024-12-14 16:08

chxw68 发表于 2024-12-14 15:25
简单问题。

谢谢大佬指点迷津，谢谢！

wqq2006 · 发表于 2024-12-14 16:09

longwin 发表于 2024-12-14 15:31
附件供参考。。。。。

谢谢大佬指点迷津，谢谢！

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

[求助] 求助一段代码。