在Excel中的文件夹内的所有文件上添加一列
我有一个文件夹（具有相同的布局）内的250列不同的Excel文件，列A到F 我需要在列G上添加一个新的列。 传统方法是打开每个文件并在G处添加新列。 有没有使用Excelmacros或任何其他工具来完成这个任何简单的过程？
这个链接帮助了我。 以下是我的解决scheme，它的作品：
Sub LoopThroughFolder() Dim MyFile As String, Str As String, MyDir As String, Wb As Workbook Dim Rws As Long, Rng As Range Set Wb = ThisWorkbook 'change the address to suite MyDir = "C:\Users\dell\Desktop\Folder1\" 'Your Directory MyFile = Dir(MyDir & "*.xlsx") 'Your excel file extension ChDir MyDir Application.ScreenUpdating = 0 Application.DisplayAlerts = 0 Do While MyFile <> "" Workbooks.Open (MyFile) Range("G1").Value = "NewColumn" 'New Column Name ActiveWorkbook.Save ActiveWorkbook.Close True MyFile = Dir() Loop End Sub
是的，这里是打开一个文件夹中的所有Excel文件的代码： macros – 打开一个文件夹中的所有文件
在该循环中，您可以向该文件添加一个新的列