我正试图从一个工作簿复制列到固定标题的主
好吧，我想我已经阅读了所有的选项，并且没有从已经得到答案的答案中得到答案 – 请原谅我，如果答复了，我只是特别的。
我期待做的是以下几点：
从具有固定（62）标题的主WorkBook能够运行一个Macro / VBA，这将使我能够打开一个文件（.csv），从该文件中获取列并将它们放在主表的相应标题下。
.csv文件肯定会有列标题来匹配主文件，但它可能不是在同一个序列。
您的帮助将不胜感激。
缺口
这是迄今为止我所帮助的代码…
Sub CopyCSV() '' Find out how many rows are on the CSV sheet LRCSV = Sheet1.UsedRange.Rows.Count '' Find out how many columns are on the Data sheet LCData = Sheet2.UsedRange.Columns.Count For x = 2 To LRCSV '' Find the last row and add one to get the first blank row LRData = Sheet2.UsedRange.Rows.Count + 1 Sheet2.Activate '' Finds the columns by the headers If FirstN = "" Then For y = 1 To LCData If Cells(1, y).Value = "First Name" Then FirstN = y If Cells(1, y).Value = "Surname" Then SurN = y If Cells(1, y).Value = "Email" Then Email = y If Cells(1, y).Value = "Telephone Number" Then TelN = y Next y End If Sheet1.Activate Sheet2.Cells(LRData, FirstN).Value = Sheet1.Cells(x, "A").Value Sheet2.Cells(LRData, SurN).Value = Sheet1.Cells(x, "B").Value Sheet2.Cells(LRData, Email).Value = Sheet1.Cells(x, "C").Value Sheet2.Cells(LRData, TelN).Value = Sheet1.Cells(x, "D").Value Next x End Sub 它的列查找我正在努力与…
尼克，我采取了一些不同的方法来解决你所面临的问题。 不过，我认为这将是一个更清洁的方法，更容易理解。
此代码假定您已经打开了CSV。 另外，还有很多我为对象填充的占位符。 更改以满足您的需求。 我也有一些评论，我认为它会帮助你更充分地理解代码。
Option Explicit Sub CopyColumns() 'set the variables needed Dim wkbMain As Workbook, wkbCopy As Workbook Dim wksMain As Worksheet, wksCopy As Worksheet Set wkbMain = Workbooks("Master.xlsm") Set wkbCopy = Workbooks("email - pws a.csv") Set wksMain = wkbMain.Sheets("Master") Set wksCopy = wkbCopy.Sheets(1) 'csv files will only ever have 1 sheet With wksMain 'capture the header row in the master sheet Dim rngFind As Range, cel As Range Set rngFind = Intersect(.UsedRange, .Rows(1)) 'assumes contigous header rows 'Set rngFind = .Range(.Range("A1"),.Range("A" & .Columns.Count).End(xlToRight) ' could use this as well if your data starts in cell A1 For Each cel In rngFind 'loop through each header in the row Dim rngCopy As Range With wksCopy Set rngCopy = .Rows(1).Find(cel, after:=.Cells(1, .Columns.Count), lookat:=xlPart, LookIn:=xlValues) 'find the header name in the CSV sheet 'now copy the entire column (minus the header row) Set rngCopy = .Range(rngCopy.Offset(1), .Cells(.Rows.Count, rngCopy.Column).End(xlUp)) rngCopy.Copy Destination:=wksMain.Cells(2, cel.Column) 'paste it to the matching header in the main sheet End With Next End With 'this was missing End Sub