我想复制一些列标题从工作表到另一个。我创建了一个数组,用于查找所需的不同标题,以便我可以将整个列复制并粘贴到新标签中。我知道我有一个错误,因为我得到一个类型不匹配的错误,也可能是其他类型。有人可以看一下,看看我错过/错了吗?复制/粘贴工作表中的特定列到另一个
Dim rngCell As Range
Dim strHeader() As String
Dim intColumnsMax As Integer
Sheets.Add.Name = "Material Master"
Sheets.Add.Name = "BOM"
intColumnsMax = Sheets("HW Zpure Template").UsedRange.Columns.Count
ReDim strHeader(1 To intColumnsMax)
strHeader(1) = "MATERIAL"
strHeader(2) = "MATERIAL TYPE"
strHeader(3) = "MATERIAL DESCRIPTION"
For Each rngCell In Rows(4)
For i = 1 To intColumnsMax
If strHeader(i) = rngCell.Value Then
rngCell.EntireColumn.Copy
Sheets("Material Master").Select
ActiveSheet.Paste Destination:=Worksheets("Material Master").Cells(1, i)
Sheets("HW Zpure Template").Select
End If
Next i
Next
嗨,是的,它正在寻找第4行的列标签。我试过了代码,但它只复制了“材质描述”。它可能粘贴在同一列的所有内容。我不知道如何解决它。 – gssd 2014-12-09 00:49:03