如何删除和添加多个Excel文件中的特定列

Question

我有一个包含5列的文件：

A || B || C || D || ë

我希望删除E列并在单元格中添加2个具有相同内容的新列。我试图在excel中找到一种方法，但这是不可能的。

我在excel中使用了MACROS记录，因为人们建议我在原始查询中使用MACROS。但问题是我拥有的excel文件有不同的行号。因此，在文件一中，我需要添加一个包含10行（内部相同文本）的新列，而在另一个中我需要添加2行。

如何在MACROS中对其进行编程？更具体地说，我想转换它：

进入这个：

我只需要图2中所示的列。我不再需要删除其余的列。我使用这些文件在openCRM上导入它们。

Answer 1

在excel宏中

sub ColReplaceInCurrentSheet ()
dim LastCellRow as integer

'uncomment for removing warning message
'Application.CutCopyMode = False
Columns("E:E").Delete Shift:=xlToLeft

' Define last row of data
Range("A65534").Select
Selection.End(xlUp).Select
LastCellRow = Selection.Row

for each ThisCell in Range ( "E1:F" & LastCellRow)
   ThisCell.value='The Value I want here'
 next

end sub

• 假设行数等于A列中的最后一个（下部）填充单元格（此处任意限制为65534）
• 你可以在单元格中放置任何你想要的值，我将它设置为一个abritrary字符串
• 宏将放入一个额外的excel文件，以便您可以从任何其他Excel中调用它（文件需要在excel中打开）
• 关于当前活动工作表的宏工作。