填3列公式

ddz79101

老师！有表格已有有效性及函数公式，我想对表格中空格批量设置有效性和函数公式，请老师看看。谢谢
另，我修改了条件重新上传了，填公式2

lcluck2002

批量设置不可以批量选中一起设置？用VBA不觉得更麻烦？

ddz79101

lcluck2002 发表于 2024-10-26 20:44
批量设置不可以批量选中一起设置？用VBA不觉得更麻烦？

谢谢老师！那么批量选中设置。因我采用下拉菜单对E列设置时，遇到了此列单元格已有内容，若一个一个的对空格设置，尝试发现太花时间了。不考虑非空，则公式会覆盖原内容。也尝试换个步骤顺序，但也遇到困难。所以考虑再三，还是用批量设置空格下拉菜单。

quqiyuan

参与一下，仅供参考。。。

quqiyuan

代码如下。。。
Sub test()
    Application.ScreenUpdating = False
    Dim wb As Workbook, sht As Worksheet, sh As Worksheet
    Set wb = ThisWorkbook
    Set sht = wb.Sheets("含空格下拉")
    Set sh = wb.Sheets("名称")
    arr = sht.Range(sht.[a1], sht.Cells(30, "o"))
    For i = 5 To UBound(arr)
        If arr(i, 5) = Empty Then
        With sht
            With .Cells(i, 5).Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                        xlBetween, Formula1:=Join(Application.Rept(sh.[g1:i1], 1), ",")
                .IgnoreBlank = True
                .InCellDropdown = True
            End With
            With .Cells(i, 7).Validation
                .Delete
                sht.Cells(i, 5) = sh.[g1]
'                s = "=INDIRECT(e" & i & ")"
                s = "=indirect(indirect(""rc[-2]"",0))"
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                        xlBetween, Formula1:=s
'                .IgnoreBlank = True
                .InCellDropdown = True
                sht.Cells(i, 5).ClearContents
            End With
            .Cells(i, 4) = "=IF(indirect(""rc[3]"",0)="""","""",INDEX(名称!D:D,MATCH(indirect(""rc[3]"",0),名称!E:E,)))"
            End With
        End If
    Next
    Beep
    Application.ScreenUpdating = True
End Sub

ddz79101

quqiyuan 发表于 2024-10-26 22:46
参与一下，仅供参考。。。

谢谢老师！运行成功！

ddz79101

quqiyuan 发表于 2024-10-26 22:47
代码如下。。。
Sub test()
    Application.ScreenUpdating = False

老师！用你的代码在实际运行中出现问题，另在实际中修改了原条件，而此问题一直出现。请老师看看。谢谢

ddz79101

条件变化，老师看看

ddz79101

有老师看看吗

quqiyuan

ddz79101 发表于 2024-10-27 02:01
老师！用你的代码在实际运行中出现问题，另在实际中修改了原条件，而此问题一直出现。请老师看看。谢谢

供参考。。。