我是 VBA 新手并且正在學習自己......我在這篇文章中遇到了類似的問題：
uj5u.com熱心網友回復：
我測驗了這段代碼，它對我來說是正確的。回到頁面，看到了來自JvdV的解決方案；所以我想我也會發布我的解決方案。
Option Explicit
Private Sub Test()
Dim result$
Dim WS As Worksheet
Set WS = ThisWorkbook.Sheets("Sheet3")
result$ = Lookupsequence(WS.Range("B1:AE1"))
result$ = Lookupsequence(WS.Range("B2:AE2"))
result$ = Lookupsequence(WS.Range("B3:AE3"))
End Sub
Private Function Lookupsequence(Return_val_col As Range) As String
Dim preValue%, value%
Dim i&
Dim result$, separator$
preValue = -1
result = ""
separator = ", "
For i = 1 To Return_val_col.count
value = CInt(Return_val_col.Cells(1, i).value)
If value = 0 Then
Exit For
ElseIf result <> "" And value - 1 <> preValue Then
result = result & "-" & preValue & separator & value
ElseIf result = "" Then
result = value
End If
preValue = value
Next
If value = 0 Then
value = preValue
End If
result = result & "-" & value
Lookupsequence = Trim(result)
End Function
我在 A 列到 AE 列的兩張影像中的測驗資料來測驗 30 個專案編號的可能性
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/503706.html
上一篇：按類別映射excel值
下一篇：Vba僅在作業日下載資料檔案