Excel 2007 - 13将工作表更改为一个母版工作表
Excel 2007 - 13将工作表更改为一个母版工作表
提问于 2014-11-04 01:12:56
好了大家好
我已经调查了这几天，并试图弄清楚。我找到了很接近的东西，但没有一样东西能满足我的需求。
我这里有13个部门，每个部门都有一张表，上面有需要解决的问题。我需要的是当每个部门更新他们的excel工作表的问题，它更新的主列表(这是在同一个工作簿)。由于人们不断地删除和添加公式，因此需要保留。
让他们在主表上输入数据并将其放入单独的文件中会更容易吗？如果是这样的话，我该怎么做呢？提前谢谢。我正在试着看看是否一个高级过滤器或其他东西可以工作，但不能得到正确的。
Stack Overflow用户
发布于 2014-11-04 03:20:24
您将需要调整我的代码中的名称，但如果您将此代码粘贴到每个部门表(而不是主列表)中，您应该会得到所需的结果：
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer
Dim xlws As Excel.Worksheet
Set xlws = ActiveSheet
For i = 1 To 13
If IsEmpty(xlws.Cells(2, i).Value) = True Then
Exit Sub
End If
Next
Dim xlwsMaster As Excel.Worksheet
Set xlwsMaster = ActiveWorkbook.Worksheets("master list")
i = 1
Do While IsEmpty(xlwsMaster.Range("A" & i).Value) = False
i = i + 1
Loop
xlws.Range("A2:M2").Copy
xlwsMaster.Range("A" & i).PasteSpecial xlPasteAll
xlws.Range("A2:M2").Clear
End Sub每当这些表中的一个发生变化时，它将检查a到m的所有值是否都已填充，如果是，则复制a2:m2并将其粘贴到主列表上的第一个空行，然后清除该表上的a2:m2。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/26719323
复制相关文章
相似问题
腾讯云开发者
