string - excel中如何合并折线

Question

我有一个包含数千行的 Excel 表格。第一列中的某些行已损坏。没有虚线总是具有包含数据的相邻列。断线则不然。换句话说，我如何转换以下内容:

进入此:

Answer 1

这些是您需要遵循的步骤。在执行任何操作之前，您应该制作电子表格的备份副本。

• 打开 Excel 电子表格。

• 确保您要处理的工作表是事件工作表

  • 现在是确保您拥有原始数据文件备份的好时机。
• 单击"file"/“选项”/“自定义功能区”
• 在右侧复选框列表中，如果未选中“开发人员”复选框，请选中它
• 点击[确定]
• 点击“开发者”选项卡
• 双击 Visual Basic 图标
• 在弹出的窗口中，右键单击当前工作簿名称下的 Microsoft Excel 对象条目。然后从弹出菜单中选择“插入”->“模块”。它应该看起来像这样:

• 插入工作簿后，这棵树将看起来更像这样:

• 您还将有一个子窗口，其标题可能是[工作簿名称] - Module1(代码)。这是放置 VBA 代码的位置。复制以下代码:

<小时/>

Dim MaxRow As Integer

Sub MergeRows()

Dim Ptr As Integer
Dim I As Integer

ActiveSheet.Cells(1, 1).Activate    ' Move to the first cell
GetMaxRow                           ' Get the last row in the worksheet
ActiveSheet.Cells(1, 1).Activate    ' Move to the first cell

Ptr = 0
I = 0

For I = 1 To MaxRow
    If ActiveSheet.Cells(I, 1).Value > "" Then
        If ActiveSheet.Cells(I, 2).Value > "" Then
            Ptr = I
        Else
            If Ptr > 0 Then ActiveSheet.Cells(Ptr, 1).Value = ActiveSheet.Cells(Ptr, 1).Value & ActiveSheet.Cells(I, 1).Value

            ActiveSheet.Cells(I, 1).Value = ""

        End If
    End If
Next I

End Sub

Sub GetMaxRow()
'
    MaxRow = ActiveCell.SpecialCells(xlLastCell).Row

End Sub

<小时/>

• 将复制的代码粘贴到空的 Module1 窗口中。
• 单击行Dim Ptr As Integer
• 按 F5
• 等待几秒钟
• 关闭模块。是否要保存代码取决于您，但在此工作簿中您可能永远不再需要它。只需保存对此问题的引用...以防万一。
• 关闭Microsoft Visual Basic for Applications窗口。
• 验证您的数据。

如果有任何问题，请更新此答案，我会检查。