VBA，将CSV按";“拆分导入到工作表

VBA是Visual Basic for Applications的缩写，是一种用于Microsoft Office应用程序的宏语言。它可以帮助用户自动化和定制化Office应用程序，提高工作效率。

在VBA中，可以使用Split函数将CSV文件按照指定的分隔符进行拆分。对于以分号";"作为分隔符的CSV文件，可以使用以下代码将其拆分并导入到工作表中：

Sub ImportCSV()
    Dim filePath As String
    Dim delimiter As String
    Dim textData As String
    Dim dataArray() As String
    Dim rowIndex As Long
    Dim columnIndex As Long
    
    ' 设置CSV文件路径
    filePath = "C:\path\to\your\file.csv"
    
    ' 设置CSV文件的分隔符
    delimiter = ";"
    
    ' 读取CSV文件内容
    Open filePath For Input As #1
    textData = Input$(LOF(1), 1)
    Close #1
    
    ' 拆分CSV文件内容
    dataArray = Split(textData, delimiter)
    
    ' 将拆分后的数据导入到工作表
    rowIndex = 1
    columnIndex = 1
    For Each dataItem In dataArray
        Cells(rowIndex, columnIndex).Value = dataItem
        columnIndex = columnIndex + 1
        If columnIndex > UBound(dataArray) + 1 Then
            rowIndex = rowIndex + 1
            columnIndex = 1
        End If
    Next dataItem
End Sub

上述代码首先需要设置CSV文件的路径和分隔符，然后通过Open语句读取CSV文件的内容。接着使用Split函数将内容按照分隔符拆分成数组。最后，使用循环将拆分后的数据逐行逐列地导入到工作表中。

这里推荐使用腾讯云的云服务器（CVM）来运行VBA代码，腾讯云的云服务器提供了稳定可靠的计算资源，可以满足VBA代码的运行需求。您可以通过访问腾讯云的云服务器产品页面（https://cloud.tencent.com/product/cvm）了解更多关于云服务器的信息。

希望以上回答能够满足您的需求，如果还有其他问题，请随时提问。