Question

根据员工工作时间编写宏。我正在尝试使用宏来根据员工的＃和硬编码填充小时数，以防止为没有原始文件的经理获取ref符号。我记录了宏并将其更改为自动填充到最后一行，但是在员工数量之后它填满了6行，而不管当周的员工行数是多少。我做错了什么。

End With
Selection.FormatConditions(1).StopIfTrue = False
ActiveCell.Offset(0, -4).Range("A1:F1").Select
lastrow = Range("A65000").End(xlUp).Row
Selection.AutoFill Destination:=ActiveCell.Range("A1:F" & lastrow)
ActiveCell.Range("A1:F" & lastrow).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
    :=False, Transpose:=False

Answer 1

如果它填充到您希望它结束的位置以下，则很可能'lastrow'不正确（表格底部可能存在一些隐藏的格式或值）

尝试使用...

lastrow = Cells.Find("*", Range("A1"), xlValues, , xlByRows, xlPrevious).Row

自动填写宏

1 个答案: