VBA：根据列中的“随机”内容填充单元格
我会尽力解释我的问题。 我需要根据单元格（列）中的四个值中的一个来填充值。 我有一个代码
Sub testmacro() If Sheets("List1").Range("A1") = "Keyword1" Then Sheets("List1").Range("b1") = "60" Sheets("List1").Range("c1") = "630" Sheets("List1").Range("d1") = "0.7" Sheets("List1").Range("e1") = "0.7" ElseIf Sheets("List1").Range("A1") = "Keyword2" Then Sheets("List1").Range("b1") = "1500" Sheets("List1").Range("c1") = "15750" Sheets("List1").Range("d1") = "1.46" Sheets("List1").Range("e1") = "1" ElseIf Sheets("List1").Range("A1") = "Keyword3" Then Sheets("List1").Range("b1") = "1500" Sheets("List1").Range("c1") = "15750" Sheets("List1").Range("d1") = "2.98" Sheets("List1").Range("e1") = "1" ElseIf Sheets("List1").Range("A1") = "Keyword4" Then Sheets("List1").Range("b1") = "1500" Sheets("List1").Range("c1") = "15750" Sheets("List1").Range("d1") = "2.38" Sheets("List1").Range("e1") = "1" End If If Sheets("List1").Range("A2") = "Keyword1" Then Sheets("List1").Range("b2") = "60" Sheets("List1").Range("c2") = "630" Sheets("List1").Range("d2") = "0.7" Sheets("List1").Range("e2") = "0.7" ElseIf Sheets("List1").Range("A2") = "Keyword2" Then Sheets("List1").Range("b2") = "1500" Sheets("List1").Range("c2") = "15750" Sheets("List1").Range("d2") = "1.46" Sheets("List1").Range("e2") = "1" ElseIf Sheets("List1").Range("A2") = "Keyword3" Then Sheets("List1").Range("b2") = "1500" Sheets("List1").Range("c2") = "15750" Sheets("List1").Range("d2") = "2.98" Sheets("List1").Range("e2") = "1" ElseIf Sheets("List1").Range("A2") = "Keyword4" Then Sheets("List1").Range("b2") = "1500" Sheets("List1").Range("c2") = "15750" Sheets("List1").Range("d2") = "2.38" Sheets("List1").Range("e2") = "1" End If 。 。 等等。 。 。 正如你可以看到这个代码只有2行将工作，但如果我需要10000行呢？ 没有办法像这样写。 我需要的东西会通过列A，注意关键字，然后用正确的值填充行的其余部分。 谢谢您的帮助！ （是的，我很新的VBA）
你可以通过使用With语句来组织事物来简化事情。 还要添加Select Case语句来清理If - Elseif - End If符号。 然后添加For循环以使事情更容易input。 循环时，请注意，您可以使用.Cellslogging而不是.Range （例如Sheets(1).Range("B5")与Sheets(1).Cells(5, 2)
例如：
For row = 1 to 2 With Sheets("List1") Select Case .Cells(row,1) Case "Keyword1" .Cells(row,2) = "60" .Cells(row,3) = "630" .Cells(row,4) = "0.7" .Cells(row,5) = "0.7" Case "Keyword2" .Cells(row,2) = "1500" .Cells(row,3) = "15750" .Cells(row,4) = "1.46" .Cells(row,5) = "1" Case "Keyword3" .Cells(row,2) = "1500" .Cells(row,3) = "15750" .Cells(row,4) = "2.98" .Cells(row,5) = "1" Case "Keyword4" .Cells(row,2) = "1500" .Cells(row,3) = "15750" .Cells(row,4) = "2.38" .Cells(row,5) = "1" end select end with next col
要做到这一点的任何数量的行，只要将For行更改For像这样：
For row = 1 to 10000 ' if you know the exact amount or... numRows = Application.WorksheetFunction.CountA(ThisWorkbook.Sheets("List1").Columns(1)) For row = 1 to numRows 'do the rest
这个代码应该做你正在寻找的。 请更改顶部的关键字以符合您的要求。
Sub GenerateRandomContent() Dim Keywords(1 To 4) As Variant Dim RowNo As Long RowNo = 1 '************************************************** '*************** EDIT KEYWORDS HERE *************** '************************************************** Keywords(1) = "Keyword1" Keywords(2) = "Keyword2" Keywords(3) = "Keyword3" Keywords(4) = "Keyword4" '************************************************** '************************************************** '************************************************** With ThisWorkbook.Sheets("List1") Do While .Cells(RowNo, 1) <> "" If .Cells(RowNo, 1) = Keywords(1) Then .Cells(RowNo, 2) = "60" .Cells(RowNo, 3) = "630" .Cells(RowNo, 4) = "0.7" .Cells(RowNo, 5) = "0.7" ElseIf .Cells(RowNo, 1) = Keywords(2) Then .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "1.46" .Cells(RowNo, 5) = "1" ElseIf .Cells(RowNo, 1) = Keywords(3) Then .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.98" .Cells(RowNo, 5) = "1" ElseIf .Cells(RowNo, 1) = Keywords(4) Then .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.38" .Cells(RowNo, 5) = "1" End If RowNo = RowNo + 1 Loop End With End Sub
你也可以使用Case Select而不是If
Sub GenerateRandomContent() Dim Keywords(1 To 4) As Variant Dim RowNo As Long RowNo = 1 '************************************************** '*************** EDIT KEYWORDS HERE *************** '************************************************** Keywords(1) = "Keyword1" Keywords(2) = "Keyword2" Keywords(3) = "Keyword3" Keywords(4) = "Keyword4" '************************************************** '************************************************** '************************************************** With ThisWorkbook.Sheets("List1") Do While .Cells(RowNo, 1) <> "" Select Case .Cells(RowNo, 1) Case Keywords(1) .Cells(RowNo, 2) = "60" .Cells(RowNo, 3) = "630" .Cells(RowNo, 4) = "0.7" .Cells(RowNo, 5) = "0.7" Case Keywords(2) .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "1.46" .Cells(RowNo, 5) = "1" Case Keywords(3) .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.98" .Cells(RowNo, 5) = "1" Case Keywords(4) .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.38" .Cells(RowNo, 5) = "1" End Select RowNo = RowNo + 1 Loop End With End Sub
甚至再简单一点
Sub GenerateRandomContent() Dim RowNo As Long RowNo = 1 With ThisWorkbook.Sheets("List1") Do While .Cells(RowNo, 1) <> "" Select Case .Cells(RowNo, 1) Case "Keyword1" .Cells(RowNo, 2) = "60" .Cells(RowNo, 3) = "630" .Cells(RowNo, 4) = "0.7" .Cells(RowNo, 5) = "0.7" Case "Keyword2" .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "1.46" .Cells(RowNo, 5) = "1" Case "Keyword3" .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.98" .Cells(RowNo, 5) = "1" Case "Keyword4" .Cells(RowNo, 2) = "1500" .Cells(RowNo, 3) = "15750" .Cells(RowNo, 4) = "2.38" .Cells(RowNo, 5) = "1" End Select RowNo = RowNo + 1 Loop End With End Sub