刷新数据时保留公式

Question

我们有VBA代码，用于将数据从MySql数据库刷新到Excel。

从数据库刷新数据后，以前存在于Excel中的公式正在消失。

我们尝试使用以下代码跳过包含公式的行，并刷新其他行。

1

Worksheets("HSE").Range("D10:O11,D15:O16,D20:O25,D29:O30,D32:O33,D36:O45").ClearContents

2

Dim rConstants As Range

Set rConstants = Worksheets("HSE").Range("D9:O45").SpecialCells(xlCellTypeConstants)
rConstants.ClearContents

但两者都不起作用。

Answer 1

你的公式总是在同一个地方吗？如果是这样，你可能会考虑做的是将原始数据从MySql加载到一个工作表中，然后设置第二个工作表，其中每个单元格引用第一个工作表中的相应单元格或具有公式并将其应用于相应的单元格中。第一张。

Answer 2

我建议您从“公式页面”中分离出“数据转储”页面。用户应该知道他们不是要直接编辑“数据转储”页面，而应该使用SUMIFS，INDEX（MATCH）等将信息提取到其他页面上。

这将允许您刷新数据页面而不会影响用户的公式，并且作为额外的好处将更清晰地允许审核/审查用户的工作。