c# - vsto Range.Find on empty single cell selection 返回单元格外的范围

Question

在我的 VSTO 加载项项目中，如果我选择一个空单元格(如 F11)并在该范围内运行查找任何值，它似乎会搜索整个工作表并在我期望它时返回范围 A1:E10返回空值。下面是我选择的单元格的图像。

我正在通过选择访问这个范围，当我在调试时检查时，它有一个 6 列和 11 行，这是我选择的。当我试图在这个范围内找到任何东西时，我希望我应该得到一个空值，但我却得到了 E10 的值，这是没有意义的。

这是我的 C# 代码，第一部分获得一个选择并遍历范围区域，在单选的情况下只有1个区域。

即使 F11 是唯一选中的单元格，最后的 val1 和 val2 的值都是 3197077000。

using Microsoft.Office.Interop.Excel;
using System;
using System.Windows.Forms;
using Excel = Microsoft.Office.Interop.Excel;

namespace ExcelAddIn1
{
    public partial class UserControl1 : UserControl
    {
        public UserControl1()
        {
            InitializeComponent();
        }

        private void button1_Click_1(object sender, EventArgs e)
        { 
            Excel.Range selection = Globals.ThisAddIn.Application.Selection;

            if (null != selection)
            {
                var sheet = selection.Worksheet;
                var book = (Excel.Workbook)sheet.Parent;

                var areasCount = selection.Areas.Count;

                for (int i = 1; i <= areasCount; i++)
                {
                    var area = selection.Areas[i];

                    var test = area.Value;
                    var testCount = area.Count;
                    var testRow = area.Row;
                    var testCol = area.Column;

                    Excel.Range lastCellInLastRow = area.Find(
                    "*",
                    Type.Missing,
                    XlFindLookIn.xlFormulas,
                    XlLookAt.xlPart,
                    XlSearchOrder.xlByRows,
                    XlSearchDirection.xlPrevious,
                    false,
                    Type.Missing,
                    Type.Missing);

                    Excel.Range lastCellInLastCol = area.Find(
                        "*",
                        Type.Missing,
                        XlFindLookIn.xlFormulas,
                        XlLookAt.xlPart,
                        XlSearchOrder.xlByColumns,
                        XlSearchDirection.xlPrevious,
                        false,
                        Type.Missing,
                        Type.Missing);

                    var val1 = lastCellInLastCol.Value;
                    var val2 = lastCellInLastRow.Value;

                }
            }
        }
    }
}

当我在 VBA 中做同样的事情时，我按预期在 F11 上运行查找时得到一个 null

Option Explicit
Public Sub SelectionTest()
    Dim selection As Variant
    Dim rng As Range
    Dim UsedRange As Variant
    Dim lastCell As Range

    Set selection = Application.selection

    Dim area As Range

    Debug.Print "selection columns " & selection.Columns.Count

    Dim finalRng As Range
    Dim finalArr As Variant

    For Each area In selection.Areas
        Debug.Print "single rng columns " & area.Columns.Count
        Set lastCell = area.Find(What:="*", After:=area.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
                        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False)

        Set lastCell = area.Find(What:="*", After:=area.Cells(1, 1), LookIn:=xlFormulas, LookAt:= _
                        xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)

        Debug.Print lastCell

    Next

End Sub

Answer 1

简短回答:Interop/Range.Find 可能不可靠。尽可能少地使用 Interop。

更长的答案:我在实践中注意到关于 Range.Find 的不可靠的事情之一是它似乎对之前最后搜索的内容有内存。这可能是也可能不是这里的问题，但如果我是你，我不会费心去弄明白，因为你可以按如下方式解决你的问题:

• 将整个范围作为二维数组读入内存
• 将数组元素转换为字符串
• 使用强大的 C# 正则表达式库和嵌套 for 循环来搜索数组

需要做更多的工作，但为了摆脱不可靠的 Interop 基础，这是值得的。这里有一些代码可以帮助您开始阅读范围:

public string[,] ReadValues(Range range)
{
    return ConvertToStringArray2D(GetArray(range, () => range.Value2));
}

private string[,] ConvertToStringArray2D(Array values)
{
    string[,] retArray = new string[values.GetLength(0), values.GetLength(1)];

    // loop through the 2-D System.Array and populate the 1-D String Array
    for (int row = 1; row <= values.GetLength(0); row++)
    {
        for (int col = 1; col <= values.GetLength(1); col++)
        {
            if (values.GetValue(row, col) == null)
            {
                retArray[row - 1, col - 1] = "";
            }
            else
            {
                retArray[row - 1, col - 1] = values.GetValue(row, col).ToString();
            }
        }
    }

    return retArray;
}

private Array OneBasedSingletonArray2D()
{
    return Array.CreateInstance(typeof(Object), new int[] { 1, 1 }, new int[] { 1, 1 });
}       

private Array GetArray(Range range, Func<object> dataProducer)
{
    if (range.Cells.Count == 0)
    {
        return Array.CreateInstance(typeof(Object), 0, 0);
    }
    if (range.Cells.Count == 1)
    {
        //Creating a 1-based array to fit with Excel's 1-based indexing
        Array retArray = OneBasedSingletonArray2D();
        retArray.SetValue(dataProducer.Invoke(), 1, 1);
        return retArray;
    }
    else
    {
        return (Array)dataProducer.Invoke();
    }
}