基于单元格值自动填充行
第一次海报在这里。 我一直在寻找我的问题的答案，但是我find一个类似的情况有困难的答案适合我。 我正在使用Excel VBA来尝试解决工作中的问题。 我对VBA环境相当陌生，所以我不确定如何继续。 任何帮助或build议，将不胜感激！
问题：
我在Tab1单元格B14有一个值。 该单元格有一个COUNT公式，它也计算Tab1上的值的数量。 用这个数字（例如14），我希望它转到Tab2，并将单元格A2:H2的公式复制到单元格中显示的数字中，因此有14行。
如果B14显示27，我想macros自动填充A2:H2 27行等等。 我已经尝试了几个类似的问题，但不能得到它的工作。
有什么build议？
由于B14的值是通过公式确定的，因此您需要监视Worksheet_Calculate事件以确定其值何时更改。 一个Staticvariables将做的伎俩。 将以下事件处理程序添加到Sheet1 ：
Private Sub Worksheet_Calculate() Static B14_Value As Long If Range("B14") <> B14_Value Then ' Save the new B14 value... B14_Value = Range("B14") ' Fill the formula down on Sheet2. Add one to account for offset. Sheet2.Range("A2:H" & B14_Value + 1).FillDown End If End Sub
由于您从第2行开始，因此需要将B14的值加1以说明偏移量。