Question

我是VBA新手，我正在尝试自动化＃34; excel电子表格中的重复任务。我试图根据不同列中的大纲级别缩进列。我一直试图从类似的任务中调整代码，但却陷入困境。基本上我想要完成的是让宏读取OutLvl列并根据大纲级别缩进下一列。下面是这个宏的屏幕截图，黄色突出显示它挂起的位置。当我试图学习应用程序时，任何意见或反馈都会受到赞赏。谢谢！ Indent Macro Attempt

Answer 1

在这看起来你没有正确初始化你想要迭代的范围。 Range对象很棘手，因为它实际上可以引用一组单元格，这里的数组使用是不必要的，甚至是混乱的。尝试这样的事情：

Dim OutLvl as Range ' This will refer to the whole range of interest
Dim t as Range      ' Always good practice to declare all variables
...   ' Fill in the code as you have written
Set OutLvl = Range("A1:A20")    ' Now OutLvl refers to A1:A20 on the active sheet.
    'Note that I can't possibly know how to appropriately set this range.

For Each t in OutLvl
    ...  ' Now perform the loop as you have written
Next t

有关您收到的错误的更多信息。注意我没看过这个，所以我不能说它的准确性： https://www.youtube.com/watch?v=kWT2YfSHpfM

在Excel中缩进列

1 个答案: