隔列增加数值

shanzeidao

想隔列给“夜班”有数据的都加1，批量操作

ww87725244

这样？=IF(A3="","",A3+1)

shanzeidao

ww87725244 发表于 2024-7-9 10:44
这样？=IF(A3="","",A3+1)

谢谢，不是这样，其他列的“夜班”数据都相应加

ww87725244

shanzeidao 发表于 2024-7-9 14:03
谢谢，不是这样，其他列的“夜班”数据都相应加

右啦，下拉看看

shanzeidao

ww87725244 发表于 2024-7-9 14:05
右啦，下拉看看

能否在原数据中操作，直接把原数据加1呢。

ww87725244

shanzeidao 发表于 2024-7-9 14:14
能否在原数据中操作，直接把原数据加1呢。

那就需要写VBA

pxy0409

=IF(B3<>0,B3+1,"")

shanzeidao

能否直接在原数据中增加更改，谢谢

ww87725244

1. Sub aa()
   
2. Dim ar, i, k
   
3. With Sheet1
   
4.     ar = .Range("b3:ai" & .UsedRange.Rows.Count)
   
5.     For i = 1 To UBound(ar)
   
6.         For k = 1 To UBound(ar, 2)
   
7.             If ar(i, k) <> "" Then
   
8.                 ar(i, k) = ar(i, k) + 1
   
9.             End If
   
10.         Next
    
11.     Next
    
12.     .[b3].Resize(UBound(ar), UBound(ar, 2)) = ar
    
13. End With
    
14. End Sub
    

复制代码