增加判断代码

zw0713

如何在代码里增加判断当S列单元格>空值时，保持不变，S列单元格=空值时，S列=H列&Q列

ykcbf1100

哪来X列数据啊?哪来sheet17表？

zw0713

ykcbf1100 发表于 2024-1-11 19:46
哪来X列数据啊?哪来sheet17表？

保质期数据表就是sheet17

ykcbf1100

zw0713 发表于 2024-1-11 19:51
保质期数据表就是sheet17

那X列没有数据啊

zw0713

ykcbf1100 发表于 2024-1-11 19:53
那X列没有数据啊

是按sheet1的F列查找保质期数据表的e列，复制的sheet1的X列

shiruiqiang

for x=2 to 6
if len(cells(x,"s"))=0 then
cells(x,"s")=cells(x,"h")& cells(x,"q")

ykcbf1100

zw0713 发表于 2024-1-11 20:04
是按sheet1的F列查找保质期数据表的e列，复制的sheet1的X列

你这个要加一段代码，先生成S列数据，然后再往下操作。

zw0713

ykcbf1100 发表于 2024-1-11 20:11
你这个要加一段代码，先生成S列数据，然后再往下操作。

With Sheets(1)
   m = .[b65536].End(3).Row
arr1 = .[a2].Resize(m - 1, 1)

arr3 = .[v2].Resize(m - 1, 1)
arr4 = .[x2].Resize(m - 1, 1)
arr5 = .[t2].Resize(m - 1, 1)

arr6 = .[h2].Resize(m - 1, 1)
arr7 = .[q2].Resize(m - 1, 1)
arr = .[O2].Resize(m - 1, 1)
arr8 = arr

ReDim arr2(1 To m - 1, 1 To 1)
For i = 1 To UBound(arr)
arr6(i, 1) = Replace(Replace(arr6(i, 1), ",", " "), "-", "")
ss6 = Split("1" & " " & arr6(i, 1), " ")
ss7 = Split("1" & " " & arr7(i, 1), " ")
   For j = 1 To UBound(ss6)
       If arr2(i, 1) < 0 Then
           arr2(i, 1) = ss6(j) & ss7(j)
           If arr8(i, 1) = "" Then arr(i, 1) = "'" & Format(arr3(i, 1), "yyyymmdd") & " " & ss6(j) & ss7(j)
       Else
          arr2(i, 1) = arr2(i, 1) & " " & ss6(j) & ss7(j)
          If arr8(i, 1) = "" Then arr(i, 1) = arr(i, 1) & " " & Format(arr3(i, 1), "yyyymmdd") & " " & ss6(j) & ss7(j)
       End If
      If arr4(i, 1) = 1 Then
      If arr8(i, 1) = "" Then arr(i, 1) = arr(i, 1) & " " & Format(arr3(i, 1), "yyyymmdd") & " " & arr1(i, 1)
      End If
  Next
  arr5(i, 1) = DateSerial(Year(Now()) + Val(arr5(i, 1)), Month(Now()), Day(Now()))
Next
.[O2].Resize(m - 1, 1) = arr
.[v2].Resize(m - 1, 1) = arr5
.[s2].Resize(m - 1, 1) = arr2
End With

End Sub

zw0713

如何在With Sheets(1)后面加一段代码

zw0713

zw0713 发表于 2024-1-12 08:19
With Sheets(1)
   m = ..End(3).Row
arr1 = .[a2].Resize(m - 1, 1)

麻烦加一段代码