如何增加判断语句

zw0713

如何判断''O"列某单元格有数据时，忽略当前单元格，否则执行一下代码

清风竹-

arr8 = .[O2].Resize(m - 1, 1) '放到arr7=…下一行

If arr8(i, 1) <> "" Then n = n + 1  '放到arr5（i, 1）=…下一行


If n > 0 Then  ' 由 .[O2].Resize(m - 1, 1) = arr改为以下4行

Else
    .[O2].Resize(m - 1, 1) = arr
End If
.[V2].Resize(m - 1, 1) = arr5
.[S2].Resize(m - 1, 1) = arr2

蓝桥玄霜

没有附件不能测试代码。
建议上传Excel表格附件来说明问题。

zw0713

老师附件已上传

zw0713

清风竹- 发表于 2023-3-17 11:32
arr8 = .[O2].Resize(m - 1, 1) '放到arr7=…下一行

If arr8(i, 1)  "" Then n = n + 1  '放到arr5（i, ...

还是一样的，“O”列有数据的保持不变，没数据的执行

ykcbf1100

代码整得太复杂，看得晕晕呼呼的。

半百

是这样吗？

zw0713

1. Sub t() '生成喷码信息 Dim 1%
   
2. With Sheets(21)
   
3. m = .[b65536].End(3).Row
   
4. arr1 = .[a2].Resize(m - 1, 1)
   
5. arr3 = .[v2].Resize(m - 1, 1)
   
6. arr4 = .[x2].Resize(m - 1, 1)
   
7. arr5 = .[t2].Resize(m - 1, 1)
   
8. arr6 = .[h2].Resize(m - 1, 1)
   
9. arr7 = .[q2].Resize(m - 1, 1)
   
10. arr = .[02].Resize(m - 1, 1)
    
11. arr8 = arr
    
12. ReDim arr2(1 To m - 1, 1 To 1)
    
13. For i = 1 To UBound(arr)
    
14. arr6(i, 1) = Replace(Replace(arr6(i, 1), ",", " "), "-", "")
    
15. ss6 = Split("1" & " " & arr6(i, 1), " ")
    
16. ss7 = Split("1" & " " & arr7(i, 1), " ")
    
17. For j = 1 To UBound(ss6)
    
18. If arr2(i, 1) = "" Then
    
19. arr2(i, 1) = ss6(i) & ss7(i)
    
20. 
    
21. If arr8(i, 1) = "" Then
    
22. arr(i, 1) = "" & Format(arr3(i, 1), "yyyymmdd") & "" & ss6(j) & ss7(j)
    
23. Else
    
24. 
    
25. arr2(i, 1) = arr2(i, 1) & " " & ss6(j) & ss7(i)
    
26. If arr8(i, 1) = "" Then
    
27. 
    
28. arr(i, 1) = arr(i, 1) & "" & Format(arr3(i, 1), "yyyymmdd") & "" & ss6(i) & ss7(i)
    
29. End If
    
30. If arr4(i, 1) = 1 Then
    
31. If arr8(i, 1) = "" Then
    
32. 
    
33. arr(i, 1) = arr(i, 1) & "" & Format(arr3(i, 1), "yyyymmdd") & "" & arr1(i, 1)
    
34. 
    
35. End If
    
36. 
    
37. Next
    
38. arr5(i, 1) = DateSerial(Year(Now()) + Val(arr5(i, 1)), Month(Now()), Day(Now()))
    
39. Next
    
40. [02].Resize(m - 1, 1) = arr
    
41. [v2].Resize(m - 1.1) = arr5
    
42. 
    
43. [s2].Resize(m - 1.1) = arr2
    
44. End With
    
45. End Sub
    

复制代码

next没有fot

zw0713

半百 发表于 2023-3-17 14:46
是这样吗？

NEXT 没有Fot

半百

zw0713 发表于 2023-3-17 15:48
NEXT 没有Fot

是不是你自己删掉了什么？添加红字部分不会出现这个情况的。