Question

我有一个复制功能，除了在通过包含合并单元格的标题/标题信息的工作表进行复制时不起作用。有没有办法告诉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行和A-F列

的单元格

请指教！：）

Answer 1

这会将您的范围设置为从第6行开始，到A列数据结尾处结束

pthread_t

我不确定您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

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

1 个答案: