excel - 有没有更聪明的方法来解决几个列

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

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

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