Excel 如何使用其他列中的文本参数填充同一列？
我正在创建一个宏文档，它从多个列中提取信息，并将这些信息放在一个特定列中指定的存储桶中 我让代码的第一部分工作，它在所选列中填充了不需要恢复的内容，但我认为它没有准确地填充结果，并且我无法运行第二个if语句Excel 如何使用其他列中的文本参数填充同一列？,excel,vba,Excel,Vba,我正在创建一个宏文档，它从多个列中提取信息，并将这些信息放在一个特定列中指定的存储桶中 我让代码的第一部分工作，它在所选列中填充了不需要恢复的内容，但我认为它没有准确地填充结果，并且我无法运行第二个if语句 Sub DecisionTree() Dim cell As Range Dim Member_state As String Dim NO_DR As String NO_DR = "No Recovery Required" Dim i As Integer For i = 1
Sub DecisionTree()
Dim cell As Range
Dim Member_state As String
Dim NO_DR As String
NO_DR = "No Recovery Required"
Dim i As Integer
For i = 1 To 14000 'ActiveSheet.Rows.Count
If ActiveSheet.Cells(RowIndex:=i, ColumnIndex:="D").Value = "Arkansas" Then
ActiveSheet.Cells(RowIndex:=i, ColumnIndex:="K").Value = NO_DR
Else
If ActiveSheet.Cells(RowIndex:=i, ColumnIndex:="E").Value = 1 Then
ActiveSheet.Cells(RowIndex:=i, ColumnIndex:="K").Value = "One"
End If
End If
Next
End Sub
I would like answers for why my if statements are not properly calculating and how I can add other if statements to populate the same column
据我所知，我只是对你的代码做了一点修改，并使用了
ElseIfOption Explicit
Sub DecisionTree()
Dim cell As Range
Dim Member_state As String
Dim NO_DR As String
Dim ws As Worksheet 'Declare and use worksheet/workbook references
Set ws = ThisWorkbook.Sheets("SheetName") 'change this to the name of the worksheet you are working on
NO_DR = "No Recovery Required"
Dim i As Long, LastRow As Long 'always long, in case your data exceeds 32k rows and anyways working with 32bits will force it to long.
With ws 'this will allow you to use the reference without writting it
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'this calculate the last row with data, in this case on column A (1)
For i = 1 To LastRow
If .Cells(i, "D") = "Arkansas" Then 'You don't need to write rowindex and column index, just their values.
.Cells(i, "K") = NO_DR 'also, you don't need to specify .Value to change it's value
ElseIf .Cells(i, "E") = 1 Then 'You can use ElseIf statement instead using else, so you can use as many as you need
.Cells(i, "K") = "One"
ElseIf .Cells(i, "J") = "Cat" Then 'another statement
.Cells(i, "K") = "Cat"'Your code
End If
Next
End With
End Sub
据我所知，我只是对你的代码做了一点修改，并使用了
ElseIfOption Explicit
Sub DecisionTree()
Dim cell As Range
Dim Member_state As String
Dim NO_DR As String
Dim ws As Worksheet 'Declare and use worksheet/workbook references
Set ws = ThisWorkbook.Sheets("SheetName") 'change this to the name of the worksheet you are working on
NO_DR = "No Recovery Required"
Dim i As Long, LastRow As Long 'always long, in case your data exceeds 32k rows and anyways working with 32bits will force it to long.
With ws 'this will allow you to use the reference without writting it
LastRow = .Cells(.Rows.Count, 1).End(xlUp).Row 'this calculate the last row with data, in this case on column A (1)
For i = 1 To LastRow
If .Cells(i, "D") = "Arkansas" Then 'You don't need to write rowindex and column index, just their values.
.Cells(i, "K") = NO_DR 'also, you don't need to specify .Value to change it's value
ElseIf .Cells(i, "E") = 1 Then 'You can use ElseIf statement instead using else, so you can use as many as you need
.Cells(i, "K") = "One"
ElseIf .Cells(i, "J") = "Cat" Then 'another statement
.Cells(i, "K") = "Cat"'Your code
End If
Next
End With
End Sub
它抛出一个错误，对象范围在更改某些内容后失败，并且类型不匹配为“是”。ElseIf.Cells（i，“EP”）=True，则可以使用ElseIf语句（问题行） 子决策树（）
End Sub它抛出一个错误，即在更改某些内容后对象范围失败，并且类型不匹配为“是”。ElseIf.Cells（i，“EP”）=True，则可以使用ElseIf语句（问题行） 子决策树（）
End Sub很高兴它帮助了@RyanColeman如果你需要进一步的帮助，尽管问。如果这对你有用，考虑把这个标记为一个答案，其他人会发现它。我写的只是一个例子…你可以用它来满足你的所有需要。你能编辑你的答案并给我看你的新代码@RyanColeman吗？我把它作为一个答案添加到这篇文章中。我为这些来来回回的事情道歉。很高兴它对@RyanColeman有所帮助。如果你需要进一步的帮助，尽管问吧。如果这对你有用，考虑把这个标记为一个答案，其他人会发现它。我写的只是一个例子…你可以用它来满足你的所有需要。你能编辑你的答案并给我看你的新代码@RyanColeman吗？我把它作为一个答案添加到这篇文章中。我为所有的来回表示歉意。这里有很多错误，您没有使用变量
YES.Cells（I，“EP”）True.Cells（i，“EP”）=“True”ElseIf.Cells（i，“EF”）=“Boulder”或.Cells（i，“EF”）=“Silver”…YES.Cells（i，“EP”）True.Cells（i，“EP”）=“True”ElseIf.Cells（i，“EF”）=“Boulder”或.Cells（i，“EF”）=“Silver”…