遍历 Excel VBA 或 VSTO 2005 中的所有单元格

Iterating through all the cells in Excel VBA or VSTO 2005

我需要简单地浏览 Excel 电子表格中的所有单元格并检查单元格中的值。单元格可能包含文本、数字或空白。我不太熟悉/不习惯使用"范围"的概念。因此，任何示例代码将不胜感激。 (我确实尝试用谷歌搜索它，但我发现的代码片段并没有完全满足我的需要)

谢谢。

如果您只需要查看正在使用的单元格，您可以使用：

1
2
3
4
5
6
7

sub IterateCells()

For Each Cell in ActiveSheet.UsedRange.Cells
'do some stuff
Next

End Sub

这将击中从 A1 到包含数据的最后一个单元格(最右下角的单元格)范围内的所有内容

1
2
3
4
5
6
7
8
9
10

Sub CheckValues1()
Dim rwIndex As Integer
Dim colIndex As Integer
For rwIndex = 1 To 10
For colIndex = 1 To 5
If Cells(rwIndex, colIndex).Value <> 0 Then _
Cells(rwIndex, colIndex).Value = 0
Next colIndex
Next rwIndex
End Sub

在 http://www.java2s.com/Code/VBA-Excel-Access-Word/Excel/Checksvaluesinarange10rowsby5columns.htm 上找到了这个片段作为说明检查单元格值的方法的函数似乎非常有用以有序的方式。

想象一下它是一个二维数组，并应用相同的逻辑循环遍历单元格。

如果您只是查看单元格的值，您可以将这些值存储在变体类型的数组中。似乎获取数组中元素的值比与 Excel 交互要快得多，因此您可以看到使用包含所有单元格值的数组与重复获取单个单元格相比在性能方面存在一些差异。

1 2	Dim ValArray as Variant ValArray = Range("A1:IV" & Rows.Count).Value

然后你可以通过检查 ValArray( row , column )

得到一个单元格值

您可以使用 For Each 来遍历定义范围内的所有单元格。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Public Sub IterateThroughRange()

Dim wb As Workbook
Dim ws As Worksheet
Dim rng As Range
Dim cell As Range

Set wb = Application.Workbooks(1)
Set ws = wb.Sheets(1)
Set rng = ws.Range("A1","C3")

For Each cell In rng.Cells
cell.Value = cell.Address
Next cell

End Sub

对于 VB 或 C# 应用程序，一种方法是使用 Office Interop。这取决于您使用的 Excel 版本。

对于 Excel 2003，这篇 MSDN 文章是一个很好的起点。
从 Visual Studio 2005 开发人员的angular理解 Excel 对象模型

您基本上需要执行以下操作：

启动 Excel 应用程序。
打开 Excel 工作簿。
按名称或索引从工作簿中检索工作表。
遍历工作表中作为范围检索的所有单元格。
最后一步的示例(未经测试)代码摘录如下。

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Excel.Range allCellsRng;
string lowerRightCell ="IV65536";
allCellsRng = ws.get_Range("A1", lowerRightCell).Cells;
foreach (Range cell in allCellsRng)
{
if (null == cell.Value2 || isBlank(cell.Value2))
{
// Do something.
}
else if (isText(cell.Value2))
{
// Do something.
}
else if (isNumeric(cell.Value2))
{
// Do something.
}
}

对于 Excel 2007，请尝试此 MSDN 参考。

你基本上可以循环一个 Range

获取一张纸

1	myWs = (Worksheet)MyWb.Worksheets[1];

获取您感兴趣的范围如果您真的想检查每个单元格，请使用 Excel 的限制

The Excel 2007"Big Grid" increases
the maximum number of rows per
worksheet from 65,536 to over 1
million, and the number of columns
from 256 (IV) to 16,384 (XFD).
from here http://msdn.microsoft.com/en-us/library/aa730921.aspx#Office2007excelPerf_BigGridIncreasedLimitsExcel

然后循环遍历范围

1
2
3
4
5
6
7
8

Range myBigRange = myWs.get_Range("A1","A256");

string myValue;

foreach(Range myCell in myBigRange )
{
myValue = myCell.Value2.ToString();
}

有几种方法可以做到这一点，每种方法都有优点和缺点；首先，您需要有一个 Worksheet 对象的实例，如果您只想要用户正在查看的对象，Application.ActiveSheet 就可以工作。

Worksheet 对象具有三个可用于访问单元格数据的属性(Cells、Rows、Columns)和一个可用于获取单元格数据块的方法(get_Range)。

范围可以调整大小等，但您可能需要使用上面提到的属性来找出数据的边界在哪里。当您处理大量数据时，Range 的优势变得显而易见，因为 VSTO 加载项托管在 Excel 应用程序本身的边界之外，因此对 Excel 的所有调用都必须通过一个有开销的层；获取 Range 允许您在一次调用中获取/设置所需的所有数据，这可以带来巨大的性能优势，但它要求您使用明确的详细信息，而不是遍历每个条目。

此 MSDN 论坛帖子显示 VB.Net 开发人员询问有关将 Range 的结果作为数组获取的问题

我的 VBA 技能有点生疏，但这是我要做什么的大致思路。
最简单的方法是遍历每一列的循环：

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

public sub CellProcessing()
on error goto errHandler

dim MAX_ROW as Integer 'how many rows in the spreadsheet
dim i as Integer
dim cols as String

for i = 1 to MAX_ROW
'perform checks on the cell here
'access the cell with Range("A" & i) to get cell A1 where i = 1
next i

exitHandler:
exit sub
errHandler:
msgbox"Error" & err.Number &":" & err.Description
resume exitHandler
end sub

似乎颜色语法突出显示不喜欢 vba，但希望这会有所帮助(至少给你一个工作的起点)。

胸肉手

在 Excel VBA 中，此函数将为您提供任何工作表中任何单元格的内容。

1
2
3

Function getCellContent(Byref ws As Worksheet, ByVal rowindex As Integer, ByVal colindex As Integer) as String
getCellContent = CStr(ws.Cells(rowindex, colindex))
End Function

所以如果你想检查单元格的值，只需将函数放在一个循环中，给它你想要的工作表的引用以及单元格的行索引和列索引。行索引和列索引都从 1 开始，这意味着单元格 A1 将是 ws.Cells(1,1) 等等。