单位将行号减去2

njwtg · 发表于 2024-1-21 10:59

从第三行开始，B、C、D、E列只要是非空的，那I列就等于行号-2后，&”★”& E列
如黄色所示
谢谢老师！

gwjkkkkk · 发表于 2024-1-21 11:24

Option Explicit
Sub TEST1()
Dim ar, i&, j&, r&, n&, isFlag As Boolean

r = Cells(Rows.Count, "B").End(xlUp).Row
With Range("A2:E" & r)
      ar = .Value
      For i = 2 To UBound(ar)
         isFlag = False
         .Cells(i, 1).Value = Empty
         For j = 2 To UBound(ar, 2)
            If Len(ar(i, j)) Then isFlag = True: Exit For
         Next j
         If isFlag Then
            .Cells(i, 1).Value = i - 1 & "★" & ar(i, 5)
         End If
      Next i
End With

Beep
End Sub

gwjkkkkk · 发表于 2024-1-21 11:26

请参考。。。

taller · 发表于 2024-1-21 11:39

太极拍天雄 · 发表于 2024-1-21 12:08

单位加行号减去练习一下

njwtg · 发表于 2024-1-21 12:32

谢谢老师！实现了

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

[求助] 单位将行号减去2

评分