目标搜寻多行-MS-Excel宏

Question

i have 5028 rows excluding the headings and 3 columns, want to set value 1.7 in the cloumn "C" by changing the value in the column "B".

using goal seek option it is possible only for one cell. i want to do the same for 5028 rows, please help to do the task by running some macro.

Answer 1

John Bustos pointed to the right idea, here is a working solution:

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

Edit:

Use ActiveSheet.UsedRange.Rows instead of UsedRange.Rows , if you intend to use this as a Macro in a Modul, not as one of a Worksheet - or any other reference to a valid Range.

For your example, you might prefer to use: Range("A2:C5028").Rows or MySheet.Range("A2:C5028").Rows .

Edit:

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

Answer 2

您可以创建一个循环的宏，然后进行远程目标搜索-http: //msdn.microsoft.com/zh-cn/library/office/bb209907%28v=office.12%29.aspx

Answer 3

This is good code. I modified it for my purpose, which is for not just a column but multiple columns. In order to run my code, you must first select (highlight) all the cells you wish to GoalSeek (connected like in a table, not separate areas). My code:

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