excel中如何引用带有数据有效性的表格?

发布网友 发布时间：2022-04-25 08:16

我来回答

共4个回答

热心网友 时间：2023-11-08 12:08

直接粘贴就可以了，什么都不用设置，复制后粘贴，默认是全部，即被复制单元格的格式、数据或公式、有效性规则等都会被复制过去。具体可在复制后选择编辑菜单中的“选择性粘贴” 就明白了！

热心网友 时间：2023-11-08 12:08

A1：D5不是一个有效的数据库表格，不能使用数据库工具。

但可以简单地使用IF函数来实现你的简单要求（只是无法连带B4或D4中数据有效性也一起复制）。
在A9中填入
=IF($B$7=$A$1,A2,IF($B$7=$C$1,C2,))
在B9中填入
=IF($B$7=$A$1,B2,IF($B$7=$C$1,D2,))

然后选中下拉至A12：B12即可。
使用时只需填写B7单元格的内容，A9：B12中的内容就可以自动变换。追问这个方法我知道，我是想知道一个复制数据有效性的方法

热心网友 时间：2023-11-08 12:08

你可以用宏来做
Sub my()
Set rng = Sheet1.Range("a1:d1").Find(what:=[b7])
Cells(2, rng.Column).Resize(4, 2).Copy [a9]
Set rng = Nothing
End Sub

热心网友 时间：2023-11-08 12:09

Hlookup

热心网友 时间：2023-11-08 12:08

直接粘贴就可以了，什么都不用设置，复制后粘贴，默认是全部，即被复制单元格的格式、数据或公式、有效性规则等都会被复制过去。具体可在复制后选择编辑菜单中的“选择性粘贴” 就明白了！

热心网友 时间：2023-11-08 12:08

A1：D5不是一个有效的数据库表格，不能使用数据库工具。

但可以简单地使用IF函数来实现你的简单要求（只是无法连带B4或D4中数据有效性也一起复制）。
在A9中填入
=IF($B$7=$A$1,A2,IF($B$7=$C$1,C2,))
在B9中填入
=IF($B$7=$A$1,B2,IF($B$7=$C$1,D2,))

然后选中下拉至A12：B12即可。
使用时只需填写B7单元格的内容，A9：B12中的内容就可以自动变换。追问这个方法我知道，我是想知道一个复制数据有效性的方法

热心网友 时间：2023-11-08 12:08

直接粘贴就可以了，什么都不用设置，复制后粘贴，默认是全部，即被复制单元格的格式、数据或公式、有效性规则等都会被复制过去。具体可在复制后选择编辑菜单中的“选择性粘贴” 就明白了！

热心网友 时间：2023-11-08 12:08

A1：D5不是一个有效的数据库表格，不能使用数据库工具。

但可以简单地使用IF函数来实现你的简单要求（只是无法连带B4或D4中数据有效性也一起复制）。
在A9中填入
=IF($B$7=$A$1,A2,IF($B$7=$C$1,C2,))
在B9中填入
=IF($B$7=$A$1,B2,IF($B$7=$C$1,D2,))

然后选中下拉至A12：B12即可。
使用时只需填写B7单元格的内容，A9：B12中的内容就可以自动变换。追问这个方法我知道，我是想知道一个复制数据有效性的方法

热心网友 时间：2023-11-08 12:09

你可以用宏来做
Sub my()
Set rng = Sheet1.Range("a1:d1").Find(what:=[b7])
Cells(2, rng.Column).Resize(4, 2).Copy [a9]
Set rng = Nothing
End Sub

热心网友 时间：2023-11-08 12:09

Hlookup

热心网友 时间：2023-11-08 12:08

直接粘贴就可以了，什么都不用设置，复制后粘贴，默认是全部，即被复制单元格的格式、数据或公式、有效性规则等都会被复制过去。具体可在复制后选择编辑菜单中的“选择性粘贴” 就明白了！

热心网友 时间：2023-11-08 12:08

A1：D5不是一个有效的数据库表格，不能使用数据库工具。

但可以简单地使用IF函数来实现你的简单要求（只是无法连带B4或D4中数据有效性也一起复制）。
在A9中填入
=IF($B$7=$A$1,A2,IF($B$7=$C$1,C2,))
在B9中填入
=IF($B$7=$A$1,B2,IF($B$7=$C$1,D2,))

然后选中下拉至A12：B12即可。
使用时只需填写B7单元格的内容，A9：B12中的内容就可以自动变换。追问这个方法我知道，我是想知道一个复制数据有效性的方法

热心网友 时间：2023-11-08 12:09

你可以用宏来做
Sub my()
Set rng = Sheet1.Range("a1:d1").Find(what:=[b7])
Cells(2, rng.Column).Resize(4, 2).Copy [a9]
Set rng = Nothing
End Sub

热心网友 时间：2023-11-08 12:09

Hlookup

热心网友 时间：2023-11-08 12:08

你可以用宏来做
Sub my()
Set rng = Sheet1.Range("a1:d1").Find(what:=[b7])
Cells(2, rng.Column).Resize(4, 2).Copy [a9]
Set rng = Nothing
End Sub

热心网友 时间：2023-11-08 12:09

Hlookup