根据同一工作表的另一列的引用在列中输入值
根据同一工作表的另一列的引用在列中输入值
提问于 2015-08-05 11:42:53
嗨，我在将值输入有条件的列并引用其他两个或更多列以使用VBA确定另一个列的输入时遇到了问题。例如，有3列名为RAG成本(C)、RAG资源(R)和RAG效益(B)。这3列将使用VBA确定名为“总体RAG”的列中的输入值。例如，如果列(C)或列(B)包含值“R”，则整个RAG状态将作为"A“输入到相应的行中。我试过使用if the语句，但它似乎不起作用。为了更清楚，这是一个例子:如果RAG成本(C)或RAG Resources(R)值= "R“，那么总体RAG status= "A”。
回答 1
Stack Overflow用户
回答已采纳
发布于 2015-08-05 13:10:15
您不需要vba，您可以编写一个简单的公式，如
=IF(ISERROR(MATCH("R",B2:D2,0)),"","A")如果你想要代码，请试试这个
Sub rgb()
Dim lstrow As Long
Dim i As Long
Dim LastCol As Long
Dim j As Long
lstrow = Range("B" & Sheets("Sheet1").Rows.Count).End(xlUp).Row
LastCol = Sheets("Sheet1").Cells(1, Sheets("Sheet1").Columns.Count).End(xlToLeft).Column
For i = 2 To lstrow
For j = 2 To LastCol
If ActiveSheet.Cells(i, j).Value = "R" Then
Range("A" & i).Value = "A"
End If
Next j
Next i结束子对象
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/31831546
复制相关文章
相似问题
腾讯云开发者
