用VBA写一个表格按行拆分的代码

### 回答1：

很高兴为您解答。我推荐您使用VBA中的split函数来拆分表格的每一行。您可以参考以下代码：

Dim strLine As String
Dim arrLine() As String

strLine = "1,2,3,4,5"
arrLine = Split(strLine, ",")

For i = 0 To UBound(arrLine)
Debug.Print arrLine(i)
Next i

### 回答2：
在VBA中编写一个表格按行拆分的代码可以按照以下步骤进行：

1. 首先，我们需要打开一个Worksheet。可以使用下面的代码来打开一个名为"Sheet1"的Worksheet。

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets("Sheet1")

2. 然后，我们需要找到表格的最后一行。可以使用下面的代码来找到最后一行的行号。

Dim lastRow As Long
lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row

3. 接下来，我们需要定义一个新的Worksheet来存储拆分后的数据。可以使用下面的代码来创建一个名为"SplitData"的新Worksheet。

Dim splitWs As Worksheet
Set splitWs = ThisWorkbook.Worksheets.Add
splitWs.Name = "SplitData"

4. 然后，我们需要逐行拷贝数据到新的Worksheet中。可以使用下面的代码来实现拆分操作。

Dim i As Long
Dim j As Long

j = 1 '初始化目标行号

For i = 1 To lastRow
    '拷贝数据
    ws.Rows(i).Copy splitWs.Rows(j)
    
    '增加目标行号
    j = j + 1
Next i

5. 最后，我们需要保存并关闭Workbook。可以使用下面的代码来保存并关闭Workbook。

ThisWorkbook.Save
ThisWorkbook.Close

以上就是一个简单的表格按行拆分的VBA代码。可以将以上代码复制粘贴到VBA编辑器中，并根据需要进行适当修改和调整。

### 回答3：
可以使用以下VBA代码按行拆分表格：

Sub SplitTableByRow()
    Dim originalSheet As Worksheet
    Dim newSheet As Worksheet
    Dim originalTable As Range
    Dim originalRowCount As Integer
    Dim splitRowCount As Integer
    Dim splitIndex As Integer
    Dim rowIndex As Integer
    
    ' 指定原始表格所在的工作表和范围
    Set originalSheet = ThisWorkbook.Sheets("Sheet1")
    Set originalTable = originalSheet.Range("A1:D10")
    originalRowCount = originalTable.Rows.Count
    
    ' 指定每个拆分后表格的行数
    splitRowCount = 2
    
    ' 新建工作表作为拆分后的表格存放位置
    Set newSheet = ThisWorkbook.Sheets.Add(After:=originalSheet)
    newSheet.Name = "SplitTable"
    
    ' 按行拆分表格
    splitIndex = 1
    For rowIndex = 1 To originalRowCount Step splitRowCount
        originalTable.Rows(rowIndex).Copy newSheet.Cells(splitIndex, 1)
        splitIndex = splitIndex + 1
    Next rowIndex
    
    ' 格式化新建的表格
    newSheet.Columns.AutoFit
End Sub

上述代码将表格按行拆分，并将拆分后的每一行复制到新建的工作表中，每个拆分后的表格占用两行。你可以根据实际需要修改代码中的原始表格范围、拆分后的行数以及新工作表的名称。代码执行完成后，可在Excel中找到名为"SplitTable"的工作表，其中包含按行拆分后的表格。