[英]Goal seek multiple rows - MS-Excel Macro
我有5028行(不包括标题和3列),想要通过更改列“ B”中的值在Cloumn“ C”中设置值1.7。
使用目标搜寻选项可能仅适用于一个单元。 我想对5028行做同样的事情,请通过运行一些宏来帮助完成任务。
John Bustos指出了正确的想法,这是一个可行的解决方案:
Public Sub Demo()
Dim rngRow As Range
For Each rngRow In UsedRange.Rows
rngRow.Cells(1, 3).GoalSeek Goal:=1.7, ChangingCell:=rngRow.Cells(1, 2)
Next rngRow
End Sub
编辑:
如果打算将其用作Modul中的宏,而不用作工作表之一,或使用任何其他对有效范围的引用,请使用ActiveSheet.UsedRange.Rows
而不是UsedRange.Rows
。
对于您的示例,您可能更喜欢使用: Range("A2:C5028").Rows
或MySheet.Range("A2:C5028").Rows
。
编辑:
Public Sub Demo()
On Error Resume Next
Dim rngRow As Range
For Each rngRow In ActiveSheet.UsedRange.Rows
rngRow.Cells(1, 3).GoalSeek Goal:=1.7, ChangingCell:=rngRow.Cells(1, 2)
Next rngRow
End Sub
您可以创建一个循环的宏,然后进行远程目标搜索-http: //msdn.microsoft.com/zh-cn/library/office/bb209907%28v=office.12%29.aspx
这是好代码。 我出于自己的目的对其进行了修改,这不仅适用于一列,而且适用于多列。 为了运行我的代码,您必须首先选择(突出显示)您希望GoalSeek的所有单元格(就像在表中那样连接,而不是分开的区域)。 我的代码:
Sub GoalSeek_To_0()
' Macro created 15 Jun '18 by Benjamin Cohen
On Error Resume Next
Dim row_, col_ As Range
Dim i_, j_ As Integer
' i_ = 1
j_ = 1
For Each col_ In Selection.Columns
For Each row_ In Selection.Rows
row_.Cells(1, j_).GoalSeek Goal:=0, ChangingCell:=row_.Cells(1, j_).Offset(0, -1)
row_.Cells(1, j_).Value = 1
Next row_
j_ = j_ + 1
Next col_
End Sub
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.