要增加什么条件，才能有这样的结果。谢谢！

13602822168

请教各位老师！要改哪里？非常感谢！！！

Jaofuan

If Cells(26, "l") <> "" Then Cells(26, "n") = Cells(26, "l") & [m2]

13602822168

Jaofuan 发表于 2024-7-30 09:36
If Cells(26, "l")  "" Then Cells(26, "n") = Cells(26, "l") & [m2]

附件中已有代码，如何插入条件？具体怎么改？可以直接替代原先在L列的数值吗？谢谢
原先的代码：

Sub L到U计算() '第1-1组
    Application.DisplayAlerts = False
    Application.DisplayAlerts = False
    Dim i, n, m, arr, brr, crr, drr, a
    arr = Range("D1:J" & [ACU65536].End(3).Row)
    brr = [M4:T4]
    crr = Range("L16:U" & [ACU65536].End(3).Row)
    For i = 16 To UBound(arr)
        For j = 1 To UBound(arr, 2)
            If arr(i, j) = brr(1, 1) Then
                m = m + 1
                crr(i - 15, m) = arr(1, j)
            End If
        Next
        m = 0
    Next
    [L16].Resize(UBound(crr), UBound(crr, 2)) = crr
End Sub

ykcbf1100

13602822168 发表于 2024-7-30 09:39
附件中已有代码，如何插入条件？具体怎么改？可以直接替代原先在L列的数值吗？谢谢
原先的代码：

你就一个xlsx文件，怎么可能有代码啊？

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.7.30
   
2.     r = Cells(Rows.Count, "l").End(3).Row
   
3.     st = [m3].Value
   
4.     For i = 5 To r
   
5.         If Val(Cells(i, "l")) Then
   
6.             Cells(i, "n") = Cells(i, "l") & st
   
7.         End If
   
8.     Next
   
9.     MsgBox "OK！"
   
10. End Sub
    

复制代码

13602822168

ykcbf1100 发表于 2024-7-30 10:26
你就一个xlsx文件，怎么可能有代码啊？

附件供参考。。。

非常感谢！！存的时候有问题，能否直接在原来的代码里插入。应该如何修改。谢谢！！
源文件

ykcbf1100

13602822168 发表于 2024-7-30 10:32
非常感谢！！存的时候有问题，能否直接在原来的代码里插入。应该如何修改。谢谢！！
源文件

原代码和这个需求也没有关系啊。不知道要怎么加。
而且，我觉得原代码应该有问题。下面这段代码感觉就有问题。
            If arr(i, j) = brr(1, 1) Then
                m = m + 1
                crr(i - 15, m) = arr(1, j)
            End If

13602822168

ykcbf1100 发表于 2024-7-30 10:57
原代码和这个需求也没有关系啊。不知道要怎么加。
而且，我觉得原代码应该有问题。下面这段代码感觉就有 ...

能否帮忙重新写，？?

ykcbf1100

13602822168 发表于 2024-7-30 11:12
能否帮忙重新写，？?

重写可以，但是先把需求说清楚。

13602822168

ykcbf1100 发表于 2024-7-30 11:32
重写可以，但是先把需求说清楚。

非常感谢！！根据D列到J列的值，提取对应的数值，(数值在D1到J1),有多少提取多少，所有提取的数值再&M2。感谢老师帮忙！谢谢!!