关于数列求值问题

和华润傑 · 发表于 2023-8-5 09:16

A列是数据，B列为要得到的结果！在C列求11数值后面的数值填写在相应的位置！谢了！！！

1111.rar (6.72 KB, 下载次数: 4)

quqiyuan · 发表于 2023-8-5 09:27

C2=IF(A1=11,A2,"")

复制代码

下拉

和华润傑 · 发表于 2023-8-5 10:13

万分感谢！楼上的朋友！！！

tiger1976 · 发表于 2023-8-5 10:32

Sub lll()

Dim rng As Range
Dim i As Integer

i = Cells(Rows.Count, 1).End(xlUp).Row

For Each rng In Range("a2:a" & i)
      If rng.Value = 11 Then
         rng.Offset(1, 2) = rng.Offset(1, 0).Value
      End If
Next

End Sub

Lovertdos · 发表于 2023-8-5 13:09

tiger1976 发表于 2023-8-5 10:32
Sub lll()

Dim rng As Range

这么点儿小事哪敢劳驾vba出场

橒♂蝣 · 发表于 2023-8-5 18:14

=IF(A2=11,A3,"")

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

[求助] 关于数列求值问题