在每个循环中使用范围单元格和UsedRange

Question

我在xlsx中提取了数据库。 我编写了遍历工作表的代码，并将各个单元格/字段写入到管道分隔的文本文件中。 首先，存在一个问题，该代码忽略以“空白”值开头的行之后的所有行。 我使用UsedRange进行了更正。 然后，另一个问题开始了-文件具有“固定”的列数，但有时最后3个单元格为空白。 在这种情况下，它不起作用-最终会忽略空白单元格。

我相信每个循环（与myField）的问题都在第二个问题上。 我花了大约5个小时来搜寻，使用帮助，使用Range，单元格，End（xxx）尝试不同的组合，但无法解决。 有人可以帮忙吗？

最后，代码必须遍历整个矩阵，但第一列和最后一列可能会有空白值。

我在下面粘贴部分代码。

    For Each myRecord In myWkSheet.Range("A1:A" & myWkSheet.UsedRange.Rows.Count)
    With myRecord
        For Each myField In myWkSheet.Range(.Cells, myWkSheet.Cells(.Row, myWkSheet.Columns.Count).End(xlToLeft))
        RplcText = myField.Text
        RplcText = Replace(RplcText, "|", "/") 'Replaces pipes from input file to slashes to avoid mismatches during ETL
        sOut = sOut & RplcText & DELIMITER
        Next myField
        OUTFILE_WRITELINE sOut
        sOut = Empty
    End With
Next myRecord`

Answer 1

如果第一行有一组标题标签，则使用.CurrentRegion 。 请参见Range.CurrentRegion属性（Excel）

dim totalRows as long, totalColumns as long, dataRange as range
with sheets("sheet1").cells(1, 1).currentregion
  totalRows = .rows.count
  totalColumns = .columns.count
  set dataRange = .offset(1, 0).resize(.rows.count -1, .columns.count)  'no header row
end with