☰

是否可以将 Excel 列（包括数据、格式等）复制到另一张表中，并在原始内容发生变化时更新它？

tag-icon • tag-icon microsoft-excel formatting
是否可以将 Excel 列（包括数据、格式等）复制到另一张表中，并在原始内容发生变化时更新它？

我的 Excel 中有一张表，它有 40 行，每行都有一些信息，

A           B
Nate        32
Bob         28
Cheryl      65
John        34
Candy       23

我手动用蓝色突出显示了男性，用粉色突出显示了女性。现在我想保留一张包含此信息的更新工作表，但我还想在其他工作表中的 B 列中添加其他信息。因此，在下一张工作表中，我想

A           B
Nate        Smith
Bob         Smith
Cheryl      Flores
John        Candy
Candy       --

问题是，如果我将 Nate 改为 Mary，并在 Sheet1 中将其格式化为粉红色，我希望 Sheet2 也能反映这一点，这可能吗？我可以轻松地从单元格中获取数据

Sheet1!A1

但这只能获取数据，有没有办法复制自定义格式（背景颜色、边框等）？我宁愿把这些东西放在不同的工作表上，以避免疯狂的水平滚动，但如果我不能，我就会走那条路。

答案1

您可以尝试冻结第一列（或更多列）来解决问题，而不是将数据移动到多个工作表。冻结的列不会滚动，并且会始终停留在屏幕上。

为此，请将水平滚动条右侧的小图标拖到要冻结的列的末尾。

将此图标拖到要冻结的位置

接下来选择菜单展览，有一个图标可以冻结窗格。

OBS：关于 Office 2010，如果只想冻结第一列，您可以直接在同一个菜单上进行操作，而无需之前拖动小图标。

如果您使用的是 Office 2003，请拖动图标并使用菜单 Windows -> 冻结

您可以用同样的方式冻结线条（使用垂直栏顶部的图标）

答案2

使用一些 VB 可以实现这一点。

来源：http://www.mrexcel.com/forum/excel-questions/55333-easy-question-re-copying-formatting-between-worksheets.html

右键单击显示下方的 sheet2 名称，然后查看代码并删除或清除视图代码中的任何数据并写入以下内容：

Private Sub Worksheet_Activate()
    Sheets("Sheet1").Columns("A:A").Copy
    Application.ScreenUpdating = False
    Columns("A:A").Select
    Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone, SkipBlanks:= _
    False, Transpose:=False
    Application.CutCopyMode = False
    Range("a1").Select
    Application.ScreenUpdating = True
End Sub

相关内容