Question

我有一段代码用于拆分单元格中的文本。数据是由不使用任何有用定界符的调查程序输出的，因此不幸的是，将文本转换为列对我没有任何帮助。

我写了这段代码，但事实证明，在两种情况下结果是不同的。

我逐步执行代码，直到添加第一列，然后完成它
我从execute宏的菜单中运行代码

在第一种情况下，输出与我设计的一样。在标题为Crop: XXX的列之后（其中包含需要拆分的原始数据），每个单独的条目都有从1到X编号的列。每行的数据开始在X列中拆分，然后按据条目。像这样：

| Crop XXX    | 1  | 2  | 3  | 4  |
|-------------|----|----|----|----|
| X1,X2,X3    | X1 | X2 | X3 |    |
| X1,X2,X3,X4 | X1 | X2 | X3 | X4 |

在第二种情况下，所有列均编号为1，并且每个新行都在前一行的数据之前输入其数据。像这样：

| Crop XXX    | 1  | 1  | 1  | 1  | 1  | 1  | 1  |
|-------------|----|----|----|----|----|----|----|
| X1,X2,X3    |    |    |    |    | X1 | X2 | X3 |
| X1,X2,X3,X4 | X1 | X2 | X3 | X4 |    |    |    |

我用于输入和编号这些列的代码是这样的：

    If Not UBound(inarray) = 0 Then

        For i = UBound(inarray) To LBound(inarray) Step -1
            If ws.Cells(1, col + i).Value = i Then
                If i = UBound(inarray) Then
                    Exit For
                End If
                col_to_add = col + i + 1
                Exit For
            Else
                addcol = addcol + 1
            End If
        col_to_add = col + i
        Next i

        If Not i = UBound(inarray) Then
            col1 = ConvertToLetter(col_to_add)
            col2 = ConvertToLetter(col_to_add + addcol - 1)
            ws.Columns(col1 & ":" & col2).Insert shift:=xlToRight
        End If

        If Not addcol = 0 Then
            For j = 1 To addcol

                If col_to_add = col + j Then
                    If j = 1 Then
                        ws.Cells(1, col_to_add) = 1
                    Else
                        ws.Cells(1, col_to_add + j - 1) = Cells(1, col_to_add + j - 2).Value + 1
                    End If
                Else
                    ws.Cells(1, col_to_add + j - 1) = Cells(1, col_to_add + j - 2).Value + 1
                End If
            Next j
        End If

        For k = UBound(inarray) To LBound(inarray) Step -1
            ws.Cells(row, col + k) = inarray(k)
        Next k
    End If

在此示例中，Inarray()是一维数组，其中第一行包含以下值：

| Inarray() | Value |
|-----------|-------|
| 1         | X1    |
| 2         | X2    |
| 3         | X3    |

ConvertToLetter是以下功能：

Function ConvertToLetter(iCol As Integer) As String
Dim vArr
vArr = Split(Cells(1, iCol).Address(True, False), "$")
ConvertToLetter = vArr(0)
End Function

有人能指出为什么情况1和情况2之间会出现这种差异吗？通常，这些情况发生在对象没有完全分类的情况下，但是我认为这次我解决了这个问题。

Answer 1

差异是因为Cells和Range并不完全合格。因此，当您逐步进行操作时，您还将选择正确的工作表，而您却自动选择了正确的工作表。

只要您有这样的事情：

ws.Cells(1, col_to_add + j - 1) = Cells(1, col_to_add + j - 2).Value + 1

请确保始终像在此处Worksheet一样将Cells()写在ws.Cells之前。或在范围之前-ws.Range()。否则，它将使用ActiveSheet或代码所在的工作表（如果不在模块中）。

A similar issue with screenshot explanation

Answer 2

TextToColumns可以实现拆分，而DataSeries可以将数字序列放入第1行。

Sub Macro4()

    Dim lc As Long

    With Worksheets("sheet9")
        .Range(.Cells(2, "A"), .Cells(.Rows.Count, "A").End(xlUp)).TextToColumns _
                Destination:=.Cells(2, "B"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, _
                Comma:=True, Tab:=False, Semicolon:=False, Space:=False, Other:=False
        lc = .Cells.Find(What:=Chr(42), After:=.Cells(1, 1), LookAt:=xlPart, LookIn:=xlFormulas, _
                   SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column - 1
        .Cells(1, "B") = 1
        .Cells(1, "B").Resize(1, lc).DataSeries Rowcol:=xlRows, Type:=xlLinear, _
                                                Date:=xlDay, Step:=1, Stop:=4
    End With

End Sub

单步执行会产生不同的结果，然后再运行

2 个答案: