如何根据两列的数值不是零值的自动增加一行

LIUZHU · 发表于 2024-4-28 16:00

linfeng123321 发表于 2024-4-28 15:47
高手，请问如果我要实现只要C列为非0值，就插入一行C列为非0值，如果D列非0值，则插入一列C值为D的值。

到底是插入行，还是插入列？怎么一会插入行，一会插入列？

linfeng123321 · 发表于 2024-4-28 16:19

本帖最后由 linfeng123321 于 2024-4-28 16:32 编辑

LIUZHU 发表于 2024-4-28 16:00
到底是插入行，还是插入列？怎么一会插入行，一会插入列？

就是实现这样，可能没有说清楚

LIUZHU · 发表于 2024-4-28 16:41

这样的吧？

LIUZHU · 发表于 2024-4-28 16:42

还是JSA代码，当然VBA可行，就是代码比较长

LIUZHU · 发表于 2024-4-28 16:43

WPS打开后，点击按钮测试下

linfeng123321 · 发表于 2024-4-28 16:47

LIUZHU 发表于 2024-4-28 16:43
WPS打开后，点击按钮测试下

太强了，谢谢。非常感谢！

linfeng123321 · 发表于 2024-4-28 16:52

LIUZHU 发表于 2024-4-28 16:42
还是JSA代码，当然VBA可行，就是代码比较长

能否给个VBA代码，我想在这基础上完善更新，WSP的实在看不懂，不会在你的基础上更新完善。谢谢！

LIUZHU · 发表于 2024-4-28 17:09

本帖最后由 LIUZHU 于 2024-4-28 17:22 编辑

VBA代码，供参考

Sub VBA转换()
Dim Arr(), Brr(), Crr()
Dim i&, j&, k&, m&
Arr = Range("A1").CurrentRegion.Value
ReDim Brr(1 To UBound(Arr) * 4, 1 To UBound(Arr, 2))
Crr = Array(3, 3, 4, 4)
For i = 2 To UBound(Arr)
For k = 0 To UBound(Crr)
If Arr(i, Crr(k)) = 0 Then GoTo 100
m = m + 1
For j = 1 To UBound(Arr, 2)
Brr(m, j) = Arr(i, j)
Next j
Brr(m, 1) = m: Brr(m, 3) = Arr(i, Crr(k)): Brr(m, 4) = Empty
100:
Next k
Next i
Range("K1").Resize(1, UBound(Arr, 2)).Value = Range("A1").Resize(1, UBound(Arr, 2)).Value
Range("K2").Resize(m, UBound(Brr, 2)).Value = Brr
End Sub

复制代码

LIUZHU · 发表于 2024-4-28 17:10

该附件添加了VBA方法了

LIUZHU · 发表于 2024-4-28 17:24

这句应改成“Range("K2").Resize(m, UBound(Brr, 2)).Value = Brr”，附件中是“Range("K2").Resize(UBound(Brr,), UBound(Brr, 2)).Value = Brr”，注意下，自己改下，不改也没什么问题

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

[求助] 如何根据两列的数值不是零值的自动增加一行