Question

我正在尝试解析Excel中的大型数据集。

这是我的示例数据

Answer 1

请求代码而不发布任何代码是一个非主题的原因，但是使用Record Macro可能适合以下情况，假设election在ColumnA中并在Row1中开始：

在B2（插入列）中并向下复制以适应：=IF(A1="election",B1+1,B1)
在C1（插入列）中并向下复制以适应：=IF(A1="V",A1&B1,IF(A1="election",A1,""))

选择工作表，复制，选择性粘贴...，值，删除ColumA：B。

Answer 2

Option Explicit
Option Compare Text
Sub ElectionID()
    Dim r As Range
    Dim I As Long, J As Long
Set r = Range("a1", Cells(Rows.Count, "A").End(xlUp))
For I = 1 To r.Rows.Count
    Select Case r(I)
        Case Is = "election"
            J = J + 1
        Case Is = "V"
            r(I) = "V" & J
    End Select
Next I
End Sub

如果你有大量这些，并且宏需要很长时间，我们可以做一些事情，比如关闭屏幕更新，还可以在VBA数组中而不是在工作表上进行工作。但我最初保持这个简单。

尝试解析CSV文件 - 添加新数据

2 个答案: