VB代码从Excel复制数据时，如何正确获取单元格数量？

你的代码问题出在列分隔符的选择：Excel复制到剪贴板的文本中，列与列之间是用**制表符（vbTab）**分隔的，而不是空格。你之前用无参数的Split()方法，会把任意空白字符（包括单元格内的空格）当成分隔符，导致含空格的单元格被误判为多列。

基础修正方案（适用于单元格无换行的情况） #

直接用制表符拆分列，同时处理空行避免行数统计错误：

Dim clipboardText As String = Clipboard.GetText()
' 拆分行，过滤空行（复制时末尾可能产生多余空行）
Dim rowData() As String = clipboardText.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)

Dim clipboardRowNo As Integer = rowData.Length
Dim clipboardColNo As Integer = 0

' 避免空剪贴板导致索引越界
If clipboardRowNo > 0 Then
    ' 用制表符拆分列，单元格内的空格不会被拆分
    clipboardColNo = rowData(0).Split({vbTab}, StringSplitOptions.None).Length
End If

进阶方案（兼容单元格内有换行的情况） #

如果复制的单元格包含换行符，纯文本格式会把单元格内的换行当成行分隔符，导致行数统计错误。此时可以读取剪贴板的CSV格式数据（Excel复制时会自动存入剪贴板），用CSV解析器处理：

Dim dataObj As IDataObject = Clipboard.GetDataObject()
Dim clipboardRowNo As Integer = 0
Dim clipboardColNo As Integer = 0

If dataObj.GetDataPresent(DataFormats.CommaSeparatedValue) Then
    Dim csvText As String = dataObj.GetData(DataFormats.CommaSeparatedValue).ToString()
    ' 使用TextFieldParser解析CSV，自动处理带引号的换行单元格
    Using parser As New Microsoft.VisualBasic.FileIO.TextFieldParser(New StringReader(csvText))
        parser.TextFieldType = FileIO.FieldType.Delimited
        parser.SetDelimiters(",")
        parser.HasFieldsEnclosedInQuotes = True ' 关键：识别带引号的特殊单元格

        Dim firstRow As String() = parser.ReadFields()
        clipboardColNo = If(firstRow IsNot Nothing, firstRow.Length, 0)

        ' 统计总行数
        clipboardRowNo = If(firstRow IsNot Nothing, 1, 0)
        While parser.ReadFields() IsNot Nothing
            clipboardRowNo += 1
        End While
    End Using
ElseIf dataObj.GetDataPresent(DataFormats.Text) Then
    ' 回退到纯文本处理逻辑
    Dim clipboardText As String = dataObj.GetData(DataFormats.Text).ToString()
    Dim rowData() As String = clipboardText.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
    clipboardRowNo = rowData.Length
    If clipboardRowNo > 0 Then
        clipboardColNo = rowData(0).Split({vbTab}, StringSplitOptions.None).Length
    End If
End If

内容的提问来源于stack exchange，提问作者Imad