1. 首先，准备一个包含您希望用户能够选择的多个选项的列表。这个列表可以是一个另外的工作表中的列，或者是一个名为“清单”的工作表中的数据。2. 接着，选择您想要设置多选下拉框的单元格。这个单元格将显示为下拉菜单的用户界面。3. 然后，按下Alt+F11键打开VBA编辑器。在这个编辑器中，您将需要...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)'--- Dim D1 As Object, K1 Dim i As Integer Dim Rng As Range Dim Str As String '--- '当前工作表&当前工作表数组 Dim St As Worksheet Dim R As Integer Dim Arr '---...

你可以用录制宏按钮实现。首先在主菜单选工具，宏，录制新宏。然后开始录制。在需要实现下拉框的单元格中选取，选数据，有效性，选序列，输入“男，女”即可，停止宏。按Alt+F11进入VBA代码，所得的模块中的代码即是你所要的代码。你可一举一反三。不知是否有所帮助。注意，在输入“男，女”的逗号...

With [b1].Validation '生成数据有效性下拉菜单 【b1】为指定单元格 .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=x ’x为有效性菜单格式为：A,B,C,D .IgnoreBlank = True .InCellDropdown = True .InputTitle ...

'右键点击表格A 标签 点击 查看代码 粘贴以下代码Private Sub Worksheet_SelectionChange(ByVal Target As Range)If [c1] <> [e1] And [c1] <> "" Then '判断输入的数值是否改变 如改变 获取包含字符的数组For I = 2 To 20 If Sheets("A").Cells(I, 1) Like "*" & [c1] & "...

如下这段，就是先选中 A列，然后设置它的下拉菜单数据为：ABC,BCD,CDE,DEF 如果下拉菜单数据来源于单元格，则把 Formula1:="ABC,BCD,CDE,DEF" 换成单元格地址，比如 Formula1:="=$B$1:$B$3" 这样即可。Sub Macro1()Columns("A:A").Select With Selection.Validation .Delete .Add Type:...

像这样就可以:Sub 宏1()For i = 1 To 100Cells(i, 1) = 1NextEnd Sub里面的=1就是你说的公式,cells(i,1)的最终结果就是1到100行都填充这个公式

代码：Set a = ActiveCell.Offset(1, 0)a就表示当前选中单元格下一航的单元格

Dim vcol, i As Integer Dim icol As Long Dim myarr As Variant Dim title As String Dim titlerow As Integer vcol = 1 Set ws = Sheets("Sheet1")lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row title = "A1:C1"titlerow = ws.Range(title).Cells(1).Row icol = ws....

Dim iVdStr As String iVdStr = "CPD-E12,CPE-F13,CPD-223" '设置列表，用英文的逗号分割 With Range("A1").Validation '为A1单元格区域设置有效性 .Delete .Add xlValidateList, xlValidAlertStop, xlBetween, iVdStr .IgnoreBlank = True .InCellDropdown = True End With ...