在下一张特定行中打印从工作表中提取的月份名称

我有10个input表单和10个相应的输出表单。 input表格中的D列包含dd/mm/yyyy hh:mm格式的date。 我正在尝试编写一个代码，将从D列中提取月份，并将这个月份的名称粘贴到从第3行开始的每个填充列上，并在相应的输出表中进行说明。以下是我的代码，它显示了错误。

对象不支持这个属性或方法

…在这条线上：

 Sheets(sheetobject.Index + 1).Ra1 = MonthName(Month(sheetobject.Range("D2"))) 

我如何纠正这一点？

 Sub RenamingOutputSheets1() Dim Ra1 As Range Dim lastCol4 As Integer Dim wsarray1 As Sheets Set wsarray1 = ActiveWorkbook.Sheets For Each sheetobject In wsarray Sheets(sheetobject.Index + 1).Activate lastCol4 =ActiveSheet.Cells(2,ActiveSheet.Columns.Count).End(xlToLeft).Column Set Ra1 = Range(Cells(1, 3), Cells(1, lastCol4)) Sheets(sheetobject.Index + 1).Ra1 = MonthName(Month(sheetobject.Range("D2"))) Next End Sub 

Answer 1

 dim w as long, lastCol4 as long, Ra1 as Range for w = 2 to worksheets.count with worksheets(w) lastCol4 = .Cells(2, Columns.Count).End(xlToLeft).Column set Ra1 = .Range(.Cells(1, 3), .Cells(1, lastCol4)) Ra1 = Format(worksheets(w - 1).Range("D2"), "mmmm") end with next w 

当您在最后一张工作表上时，我无法确定您打算如何处理Sheets(sheetobject.Index + 1) 。