多个表格怎么批量下拉选择?

用vba代码，批量操作，依次打开表格修改，其中修改下拉选择第二个的代码如下，其他自己修改。

以下是一个使用VBA来判断某个单元格是否有下拉列表，并且将其默认选择第二个值的示例代码：

```vba

Sub SetDefaultItemInDropDown()

Dim ws As Worksheet

Dim dropDownCell As Range

Dim dropDownList As Range

Dim defaultItem As String

' 指定要设置默认选项的工作表

Set ws = ThisWorkbook.Sheets("Sheet1")

' 指定包含下拉列表的单元格

Set dropDownCell = ws.Range("A1")

' 判断单元格是否有下拉列表

If dropDownCell.Validation.Type = xlValidateList Then

' 指定下拉列表的选项范围

Set dropDownList = Range(dropDownCell.Validation.Formula1)

' 设置默认值为第二个选项

defaultItem = dropDownList.Cells(2, 1).Value

dropDownCell.Value = defaultItem

Else

MsgBox "该单元格没有下拉列表"

End If

End Sub

```

在这个示例代码中，我们首先判断单元格A1是否有下拉列表，如果有的话，就把下拉列表的第二个选项设置为默认值。如果该单元格没有下拉列表，那么将会弹出一个消息框提示没有下拉列表。

你需要根据你实际的情况修改代码中的单元格地址和工作表名称。