修复复制function以包含标题/合并单元格

我有一个复制function，除了在通过包含合并单元格的标题/标题信息的工作表进行复制时无效。 有什么办法可以告诉VBA开始关注第5行（所以数据从第6行开始）

这里是代码：

Sub FillAtoF() For Each Area In Columns("A:F").SpecialCells(xlCellTypeBlanks) If Area.Cells.Row <= ActiveSheet.UsedRange.Rows.Count Then Area.Cells = Range(Area.Address).Offset(-1, 0).Value End If Next Area 

工作表已合并占用行1-5和列AF的单元格

请指教！ 🙂

Answer 1

这会将您的范围设置为从第6行开始，并在A列中的数据结束时结束

 Sub FillAtoF() Dim lastrow As Integer lastrow = Cells(Rows.Count, "A").End(xlUp).Row Dim rng As Range Set rng = Range(Cells(6, "A"), Cells(lastrow, "F")) For Each c In rng 'if stuff Next End Sub 

我不确定你if做什么，但是你可以在范围内使用for循环。 或者一排一排地走。 或面积按面积。

我想你会有这个 –

 Sub FillAtoF() Dim lastrow As Integer lastrow = Cells(Rows.Count, "A").End(xlUp).Row Dim rng As Range Set rng = Range(Cells(6, "A"), Cells(lastrow, "F")) For Each Area In rng.SpecialCells(xlCellTypeBlanks) Area.Cells = Range(Area.Address).Offset(-1, 0).Value Next Area End Sub