vba公式下拉至指定行？ excel下拉菜单多选vba

vba公式下拉至指定行？excel下拉菜单多选vba

VBA自动下拉公式，多少人自动下拉多少行

Sub 下拉公式()

X = Range("A65536").End(xlUp).Row

Range("B2:B" & X) = "输入你的计算公式"

End Sub

如图片中

在名称框中输入

A1:E5000

回车后不作别的操作直接输入

=SHEET1!A1

【紧接着】同时按Ctrl+Enter两键确认。

你说的是不是数据有效性中使用“清单”实现的在某些单元格上出现一个下拉框的效果呢？

如果是，那么下面的代码就是通过VBA实现对下拉清单的修改：

以上内容是假定在“性别”列实现下拉框时，需要显示“男”和“女”两个选项。

需要显示别的选项时，把双引号中的内容替换就是了，注意选项中间用英文的逗号隔开。

-------------------------------------------------------------------------------------------------------

Range("L15").Select

With Selection.Validation

.Delete

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _

xlBetween, Formula1:="男,女"

.IgnoreBlank = True

.InCellDropdown = True

.InputTitle = ""

.ErrorTitle = ""

.InputMessage = ""

.ErrorMessage = ""

.IMEMode = xlIMEModeNoControl

.ShowInput = True

.ShowError = True

End With

-------------------------------------------------------------------------------------------------------

Sub zz()

Cells(6, 2).Formula = "=" & Cells(5, 1).Address(0, 0)

Range([b6], Cells(Cells(Rows.Count, 1).End(3).Row, 2)).FillDown

End Sub