Excel VBA如何将公式自动填充到下一列中表格的长度
我是VBA编程新手，我正在尝试解决一个问题 假设有一张表放在A5:F范围内（刷新此表时，此表的长度会发生变化，因此一次是7k行，另一次大约是5k行）。我想创建一些宏来帮助我自动化我的日常工作 刷新表格后（例如，假设表格范围为A5:F7000），我必须选择单元格G5；H5；I5并复制这些文件，并将其填写到所述表格的长度。细胞内G5；H5；我有一些公式 我试图找到正确的方法，但没有找到正确的答案 我没有VBA代码，因为我甚至不知道如何解决这个问题 伙计们，请给我一些建议和提示，以正确的方式完成这项工作。填写公式Excel VBA如何将公式自动填充到下一列中表格的长度,excel,vba,Excel,Vba,我是VBA编程新手，我正在尝试解决一个问题 假设有一张表放在A5:F范围内（刷新此表时，此表的长度会发生变化，因此一次是7k行，另一次大约是5k行）。我想创建一些宏来帮助我自动化我的日常工作 刷新表格后（例如，假设表格范围为A5:F7000），我必须选择单元格G5；H5；I5并复制这些文件，并将其填写到所述表格的长度。细胞内G5；H5；我有一些公式 我试图找到正确的方法，但没有找到正确的答案 我没有VBA代码，因为我甚至不知道如何解决这个问题 伙计们，请给我一些建议和提示，以正确的方式完成这项工
- s-源，d-目的地
选项显式
子填充公式（）
Const sName As String=“Sheet1”
Const sCols As String=“A:F”
Const dCols As String=“G:I”
常量第一行长度=5
将wb设置为工作簿：设置wb=ThisWorkbook包含此代码的工作簿
使用wb.Worksheets（sName）.Range（sCols）.Rows（FirstRow）
暗sCell As范围
设置sCell=.Resize（.Worksheet.Rows.Count-.Row+1）_
.Find（“*”，xlFormulas，xlByRows，xlPrevious）
如果sCell为空，则退出Sub
尺寸rCount的长度：rCount=sCell.Row-.Row+1
变暗drg As范围
设置drg=.Worksheet.Columns（DCOL）.Rows（FirstRow）.Resize（rCount）
填充图
调整图纸大小（.worksheet.Rows.count-.Row-rCount+1）_
.偏移量（rCount）.清除
以
端接头