VBA - 粘贴外部数据时Excel忽略逗号

使用VBA编程语言可以在Excel中进行各种数据操作和处理。其中一个常见的需求是从外部源粘贴数据到Excel工作表中。然而，有时候在粘贴数据时，Excel会忽略逗号的存在，导致数据无法正确地分隔成列。本文将介绍如何使用VBA解决这个问题，并提供一个案例代码来演示该解决方案。

vba
Sub PasteExternalData()
    Dim data As String
    Dim dataArray() As String
    Dim row As Integer
    Dim column As Integer
    
    ' 将剪贴板中的数据粘贴到字符串变量中
    data = Application.Clipboard.GetText
    
    ' 使用逗号作为分隔符将数据分割成字符串数组
    dataArray = Split(data, ",")
    
    ' 将分割后的数据逐行逐列地填充到工作表中
    row = 1
    column = 1
    For Each item In dataArray
        Cells(row, column).Value = item
        column = column + 1
        ' 当列数达到最大列数时，换行
        If column > Columns.Count Then
            row = row + 1
            column = 1
        End If
    Next item
End Sub