Excel VBA 跨表 批量设置数据有效性，悬赏100，如各位马上帮忙解决OK,加100

Question

两个 sheet : 数据源， “数据有效性引用” ， 两在同一工作薄内， 格式完全一样

“ 数据源 ” A3:A1000 数据有效性系列 来源 为 "数据有效性引用" Range(A3:A4) (要求序列 可添加， 即 可能会新增A5, 那么序列变为A3:A5, 意思是 A3 :A (xlendup row))
“ 数据源 ” B3:B1000 数据有效性系列 来源 为 "数据有效性引用" B3:B4, 同样要求序列可添加, 即 B3 : B列 最后一非空单元格

同理 ： C3:C1000 来源于 数据有效性引用 C3:C 列最后非空单元格 行

在此真诚感谢各位帮忙，
希望描述清楚了， 如仍有不明 请提出，谢谢

Answer 1

看了你的问题，不知道你的想法是采用函数还是VBA解决，我认为用函数将能解决这个问题了。方法如下：（按数据来源在“数据有效性引用”表，输入是在“数据源”表写公式）
1.点插入——名称——定义，输入名称“数据”，在引用位置输入公式=OFFSET(数据有效性引用!E$1,0,0,MAX((数据有效性引用!E$1:E$1000<>"")*ROW(数据有效性引用!E$1:E$1000)))后点确定。
2.在“数据源”表中A1单元格设置数据有效性——序列，在来源里输入“=数据”后确定。
3.将A1单元格的有效性复制到A、B、C……各列的相应单元格。到此OK！
你自己试试下拉列表吧！

追问

1楼，这样我N年前就会了，
本来154K的表格 被你 这样 一弄 会变成4M
还是谢谢你，感谢您的回答

Answer 2

vate Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target = "" Then
Exit Sub
End If
For i = 2 To ThisWorkbook.Sheets.Count
Set c = Sheets(i).Cells.Find(Target, ActiveCell, , xlWhole)
If Not c Is Nothing Then
Sheets(i).Select
Sheets(i).Range(c.Address).Activate
Exit Sub
End If
Next i
End Sub

'功能还比较单一，如有进一步要求，可以hi我

追问

无语， Copy别人的 东西 代码都不Copy全

一点小偷的 职业精神都没有

开头是 Private Sub.......... 我简直无语

Answer 3

Sub 批量设置数据有效性()
Dim irow
srow = 3
drow = 1000
For i = 1 To 3
irow = Sheets("数据有效性引用").Cells(65535, i).End(xlUp).Row '取得数据有效性引用表中1-3列的最后有数据行的行数
ThisWorkbook.Names.Add Name:=Chr(64 + i) & Chr(64 + i), RefersToR1C1:="=数据有效性引用!R" & srow & "C" & i & ":R" & irow & "C" & i '定义名称
With Sheets("数据源").Range(Cells(srow, i), Cells(drow, i)).Validation '设置数据有效性
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & Chr(64 + i) & Chr(64 + i)
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.IMEMode = xlIMEModeNoControl
.ShowInput = True
.ShowError = True
End With
Next
End Sub

这个代码你放在数据源那张表里面,只要数据有效性引用有数据更新,运行一下这段宏即可自动设置好.