Excel VBA范围计算

Question

我正在努力创建一个每月合并功能，它不喜欢我如何使用我的代码的这个特定的 sn-p：

For Each ws In Worksheets

 If Len(ws.Name) <= 5 Then
    ws.Range("B7:C7").Select
    Selection.ClearContents
    Selection.AutoFill Destination:=Range("B7:C100"), Type:=xlFillDefault
    Range("B7:C100").Select

 End If

 Next

所有客户资料均通过模板填写，该模板为每个新人自我复制，因此所有资料都是标准化的。所有用户配置文件都是

我已将 ws 定义为我的 Worksheet 变量，但我不明白为什么我不能将 ws.range 设置为 B7:C7。非常感谢您的洞察力！

我已附上表单外观的快照。

Answer 1

For Each ws In Worksheets
    If Len(ws.Name) <= 5 Then ws.Range("B7:C100").ClearContents
Next

注意事项：

• .Select 语句需要激活 ws
• 在这种情况下你不需要使用 .Select（你可以直接作用于范围）

• .AutoFill 还不错，但这里不需要

  • 它的用处在于增加初始数据时