Excel中未对齐的列

Question

我有一个包含32,000行数据的电子表格。每行包含一些键值对。某些行中缺少某些键值对。当缺少键值对时，它将被右键的键值对替换。因此，列未对齐。我希望所有具有相同键的键值对都在同一列中。

以下是说明问题的屏幕截图：

如何以编程方式实现此转换？

Answer 1

我会有0选项（或NA）选项。因此，不要将大小值设置为不存在，而是将大小值设置为0.要轻松找出哪些不具有此值，您可以执行过滤 - ＆gt;排序 - ＆gt;复制粘贴，然后将所有这些初始化为默认值。它将扩展您需要存储的数据量，但将来如果您需要更新行，则可能更容易这样做。

Answer 2

右键单击工作表＆gt; View Code＆gt;粘贴下面的代码（未测试）和运行（F5）

Sub align()
    Dim cell As Range, i As Long, likes()
    likes = Array("", "color: *", "size: *", "quality: *", "taste: *")
    For Each cell In Range("B2").CurrentRegion.Resize(, 1)
        For i = 1 To UBound(values)
            If Not cell(, i) Like likes(i) Then cell(, i).Insert xlToRight
        Next
    Next
End Sub