问题

有没有办法将一系列单元格从一个工作表移动到另一个工作表，并保持所有公式指向未移动的单元格仍然从原始工作表读取（添加工作表参考）？

Answer 1

如果我理解你的问题是正确的：

您可以使用公式剪切区域并将其粘贴到新工作表中的相同区域。然后复制新工作表中的公式并将其粘贴回原始区域。完成。

之后，您可以删除新工作表中的行/列，以使公式位于右上角。

Answer 2

如果您选择要冻结的区域左下方的单元格，则冻结窗格应该有效，然后选择冻结窗格。如果您仍需要在右侧部分滚动，则拆分（冻结窗格右侧的按钮）应该有效。另一个选项可能是引用新工作表中的单元格并将公式保留在原始工作表中（例如，新工作表中的A1 = OriginalWorksheet!A1）。如果没有公式中引用的工作表，我认为没有办法移动公式并保留原始工作表参考。

Answer 3

编辑：在OP请求后向公式添加工作表名称引用
取自this answer on superuser 的正则表达式 从here on MSDN

引用的替代模式

您需要添加＆＃34; Microsoft VBScript正则表达式5.5＆＃34;的引用。在工具＆gt;参考文献

中

RegEx used here的工作示例 如果它们存在，这将在代码中的其他位置拾取数字和字母序列，因此这里可能需要进行一些完整性检查。

范围必须相同。我保持它非常基本，因为你还没有提供任何代码可以使用。

Dim rng1 as Range, rng2 as Range
Dim x as long, y as long, r as long, c as long
Dim RegEx As Object

Set RegEx = CreateObject("VBScript.RegExp")
On Error Resume Next

RegEx.Global = True
RegEx.Pattern = "\b[A-Z]{1,3}[0-9]{1,4}\b"

set rng1 = Workbooks("BookName").Worksheets("SheetName1").Range("A1:B2")     'target cells
set rng2 = Workbooks("BookName").Worksheets("SheetName2").Range("AA1:AB2")   'contains the formula

r = rng.rows.count
c = rng.columns.count

For x = 1 to r
 For y = 1 to c
  rng2.Cells(x, y).formula = RegEx.Replace(rng1.Cells(x, y).formula,"SheetName2$&")
 Next y
Next x

On Error GoTo 0

在psuedo中写道所以这是未经测试但应该有效。 ~~强制将公式作为字符串处理，以确保它不会自动更新，但如果错误只是从循环内删除"" &。~~

如何将具有多个公式的一系列单元格移动到另一个图纸

问题

3 个答案: