使用宏

时间:2015-09-11 06:37:35

标签: excel vba excel-vba

我需要复制一个excel的值并创建一个具有所需格式的新值。假设我需要将列从B11复制到BG11,行将一直到最后。(我不知道如何找到行的结尾)。我在b7到bg7中有列标题。在两者之间有不需要的行,我不需要它。所以在新的excel中我想要列标题(从b7到bg7)作为第一行,值从b11到bg11直到结束。

这是我的第一个excel Macro。我不知道该怎么办。所以通过一些stackoverflow问题和其他网站的引用,我尝试了下面的代码。但它没有提供所需的输出。

Sub newFormat()

Dim LastRow As Integer, i As Integer, erow As Integer

LastRow = ActiveSheet.Range(“B” & Rows.Count).End(xlUp).Row

For i = 2 To LastRow

Sheets("MySheetName").Range("B7:BG7").Copy
Sheets("MySheetName").Range("B11:BG11").Copy


Workbooks.Open Filename:=”C:\Users\abcd\Documents\Newformat.xlsx”
Worksheets(“Sheet1”).Select
erow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row

ActiveSheet.Cells(erow, 1).Select
ActiveSheet.Paste
ActiveWorkbook.Save
ActiveWorkbook.Close
Application.CutCopyMode = False
End If

Next i
End Sub
这可能很简单。任何帮助将不胜感激。

0 个答案:

没有答案