有没有更聪明的方法来解决几个专栏

Question

我想提取表中的数据。我使用TextToColumns功能。 我知道这是4个条目。我可能有正确的数据。 （取决于谁在做数据摘录）。 我想插入4列

我现在有4行插入一个新列。

.Columns(searchCol + 1).Insert Shift:=xlToRight
.Columns(searchCol + 1).Insert Shift:=xlToRight
.Columns(searchCol + 1).Insert Shift:=xlToRight
.Columns(searchCol + 1).Insert Shift:=xlToRight

是否有更聪明，更优雅的方法来做到这一点？ （我的代码正在运行并正常工作）

Answer 1

要在列searchCol + 1的左侧一次插入4列：

.Columns(searchCol + 1).Resize(ColumnSize:=4).Insert Shift:=xlToRight