我有一个文件，我只想在整个文件中以某种模式提取单元格 B9、B19、B29 等。我希望将其提取到不同的 excel 文件或以某种方式提取，以便我可以仅使用另一个 excel 工作表中的那些单元格进行处理。
可能，我可能有几个 excel 文件，我可能需要做这种事情，所以如果有一种方法可以让我在很多文件中使用相同的格式，我总是可以提取单元格 B9、B19、B29会很好。任何帮助表示赞赏
如果可能的话，我会寻找语法
编辑
正在考虑是否可以以某种方式制作一个 excel IF 语句，说明如果 Row 有 9 并且行是 B 然后在某处打印它，但我希望它打印在一列中
编辑 2 我只想要 B 列而不是我之前提到的 A 列。 B9, B19,B29,B39 贯穿整个文件
【问题讨论】：
标签： vba excel if-statement excel-2007
以防万一你想用代码来做：
Sub Test()
'Assumes Sheet1 has your values and Sheet2 will be the data extracted from every row ending in 9
Dim iCounter As Long
Dim newSheetRow As Long
Dim aValue As String
Dim bValue As String
newSheetRow = 1
'Start and nine and increment by 10 till you reach end of sheet
For iCounter = 9 To Sheet1.Rows.Count - 1 Step 10 'NOTE: You may not want to do it by RowCount, but just showing you could
aValue = Sheet1.Range("A" & iCounter)
bValue = Sheet1.Range("B" & iCounter)
Sheet2.Range("A" & newSheetRow).Value = "We were on row: " & iCounter
Sheet2.Range("B" & newSheetRow).Value = aValue
Sheet2.Range("C" & newSheetRow).Value = bValue
newSheetRow = newSheetRow + 1
Next iCounter
MsgBox "Done"
End Sub
【讨论】：
您可以使用 INDIRECT 函数。它将单元格引用作为文本字符串并返回该单元格中的值。所以不要使用
=data!a9
要获取单元格 a9 中工作表“数据”中的值，请使用
=indirect("data!a9")
您也可以使用 r1c1 表示法，如下所示：
=indirect("data!r9c1",false)
从那里您可以使用 ROW 和 COLUMN 函数按 10 步进行：
=INDIRECT("data!r"&-1+10*ROW()&"c"&COLUMN(),FALSE)
如果您将此公式放在输出表的 A1 中，然后将其复制并向下粘贴，它将在单元格 A1 中为您提供 data!A9、data!A19、data!A29、...中的值， A2、A3...根据您希望输出的排列方式，您可能需要修改单元格引用字符串。
【讨论】：
根据您想要执行此操作的频率，取决于您需要如何执行此操作，如果是其中之一，一些简单的 excel 命令可能会有所帮助。
例如
在 C1 单元格中输入以下内容：
=MOD(ROW(),10)
然后将其复制到数据的底部。该命令将返回从 1 到 0 的数字。然后，您可以过滤值为 9 的列 C 上的数据，然后选择可见行并将数据复制到新工作表中。
ROW() ' this returns the ROW number of cell the command is in.
MOD(number, divisor) ' this basically divides one number by the other and returns the remainder. so row 9 / 10 = 0 remainder of 9, row 19 / 10 = 1 remainder of 9.
希望这会有所帮助。
【讨论】：