☰

如何在每个过滤器输出之间添加一个单元格

tag-icon • tag-icon microsoft-excel
如何在每个过滤器输出之间添加一个单元格

我有一排日期，我想转置它们并在每个输出之间添加一个空单元格。

我拥有的：
1月1日 1 月 7 日 1月14日 1月21日

我想要的是：
1月1日 1 月 7 日 1月14日 1月21日

答案1

假设您的数据从 A 列开始，选择 B 列，然后按Ctrl。用手指按住Ctrl按键，选择其他列。按Ctrl+ Shift+ +。将插入新列。

答案2

您可以使用此宏自动执行此操作：

它假定您的数据在第 1 行，没有空列，并且它不会进行任何转置，因为您在问题中实际上并没有显示任何转置。它也可以与 ActiveSheet 一起使用，因此当您运行它时，请确保选择了包含您的数据的工作表。

Sub insertColumns()
    Dim max As Integer
    max = Application.WorksheetFunction.CountA(Range("1:1"))
    
    For i = 1 To max
        Columns(i * 2).Insert
    Next i
    
End Sub

相关内容