我對 VBA 宏中的回圈有疑問。我想在列中回圈并在同一行中設定另一列的串列，列到列。
我的宏回圈了一列，但我堅持如何在該回圈中逐行排列。
例如。在單元格 O3 宏中，從 D3 列中的資料創建一個串列。
這是我的宏：
Sub List()
Dim range As Range
Dim cell As Range
Set range = Range("O3:O999")
For Each cell In range
Dim list As String
list = Replace(Range("D3").Value, ";", ",")
With cell.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=list
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
Next cell
End Sub
我嘗試在“替換（范圍...”中進行另一個回圈，但這是個壞主意：D
有什么建議或解決問題嗎？
預先感謝您的任何幫助。我是 VBA 新手。
uj5u.com熱心網友回復：
代替
list = Replace(Range("D3").Value, ";", ",")
您可以使用：
list = Replace(cell.EntireRow.Columns("D").Value, ";", ",")
轉載請註明出處，本文鏈接：https://www.uj5u.com/ruanti/521993.html
標籤：擅长vba
上一篇：將標題添加到每條記錄作為行
下一篇：VBA宏非常慢