将VB.NET应用程序加速到Excel

Question

我已经在Visual Studio 2015中编写了VB.NET应用程序。（第一次与Visual Basic或VS有任何联系）。 该应用程序获取一个输入的csv文件，对其进行分析，并根据分析将其拆分为2个输出的csv文件。 对于这些输出文件之一，然后需要将每个空白单元格更改为零值。 我的问题是，我编写的代码正在处理750个输入的csv文件，以生成1500个输出文件，循环中的每个进程需要5分钟，这意味着最多要花5天的时间来运行！ 太久了！

我正在尝试找出如何使代码更快地运行。 一个简单的第一步是在空白单元格中进行零操作，因为我目前正在逐个单元地进行操作。 我读起来更好，可以通过数组来完成，但是我不确定如何编码...有人可以帮忙吗？

我的代码现在是：

    Dim forceDataRangeDest, cell As Excel.Range
    Dim blank As String
    Dim forceDataRow, lastDataRow As Integer

'copy force data from original workbook to sheet 1 of new workbook
            If ws.Range("Z" & (forceLegRowStart + 1)).Value = "Force Plate 3" Then
                forceDataRow = forceDataRow + 2
                forceDataRangeSrc = ws.Range("Z" & forceDataRow & ":AK" & lastDataRow)
            Else forceDataRangeSrc = ws.Range("A" & forceDataRow & ":M" & lastDataRow)
            End If
            wsData = wbForce.Sheets("Sheet1")
            wsData.Name = "Data"
            forceDataRangeDest = wsData.Range("A1")
            forceDataRangeSrc.Copy(forceDataRangeDest)

            'insert new column A if Force Plate 3 data is one taken for the time interval data of column A
            If ws.Range("Z" & (forceLegRowStart + 1)).Value = "Force Plate 3" Then
                wsData.Columns("A:A").Insert(1)
                'write in the Data
                forceDataRangeSrc = ws.Range("A" & forceDataRow & ":A" & lastDataRow)
                forceDataRangeSrc.Copy(wsData.Range("A1"))
            End If

    forceDataRangeDest = wsData.Range("A1:M" & ((lastDataRow - forceDataRow) + 1))
                For Each cell In forceDataRangeDest
                    blank = cell.Value
                    If String.IsNullOrWhiteSpace(blank) Then
                        cell.Value = 0
                    End If
                Next

我认为实际上是在此示例代码底部的For Each单元格增加了处理时间...我将如何将其写为数组，然后将数组一次性写入excel？

非常感谢您提供的任何帮助。

Answer 1

您可以在VBA中使用Range.Find和Range.FindNext方法，这比遍历所有单元格要快。 这是VBA代码的示例：

Sub FindEmptyCells()

Dim found As Range
Dim firstCell As String

    Set found = ActiveSheet.UsedRange.Find(What:="", LookAt:=xlWhole)
    firstCell = found.Address

    Do While Not (found Is Nothing)
        Debug.Print found.Address
        Set found = ActiveSheet.UsedRange.FindNext(found)
        If found.Address = firstCell Then
            Exit Do
        End If
    Loop

End Sub

编辑：添加了代码以使用OP的范围对象

Dim found As Range
Dim firstCell As String

    Set found = forceDataRangeDest.Find(What:="", LookAt:=xlWhole)
    firstCell = found.Address

    Do While Not (found Is Nothing)
        found.Value = 0
        Set found = forceDataRangeDest.FindNext(found)
        If found.Address = firstCell Then
            Exit Do
        End If
    Loop