如何仅从文件(而不是格式、公式等)复制值
如何仅从文件(而不是格式、公式等)复制值
提问于 2019-06-19 02:07:31
我只想复制不带格式的数据值。我该怎么做呢？
我下面的现有代码复制了该格式。
wbkSource_Feeder.Worksheets(1).Activate
sourceColCount = wbkSource_Feeder.Worksheets(1).Range("A1").CurrentRegion.Columns.Count
For Each Cell In wbkSource_Feeder.Worksheets(1).Range(Cells(1, 1), Cells(1, sourceColCount))
wbkDest.Worksheets("sheet2").Activate
destColCount = wbkDest.Worksheets("sheet2").Range("A1").CurrentRegion.Columns.Count
For Each Cell2 In wbkDest.Worksheets("sheet2").Range(Cells(2, 1), Cells(2, destColCount))
If Cell = Cell2 Then
Set DestRng = wbkDest.Worksheets("sheet2").Range(Cells(Cell2.Offset(1, 0).Row, Cell2.Column), Cells(SourceLastRow, Cell2.Column))
wbkSource_Feeder.Worksheets(1).Activate
wbkSource_Feeder.Worksheets(1).Range(Cells(Cell.Offset(1, 0).Row, Cell.Column), Cells(SourceLastRow, Cell.Column)).Copy Destination:=DestRng
Exit For
End If
Next Cell2回答 1
Stack Overflow用户
回答已采纳
发布于 2019-06-19 02:21:25
使用如下所示的设置值方法。这对你来说应该更有效率。
destrng.Value = wbkSource_Feeder.Worksheets(1).Range(Cells(Cell.Offset(1, 0).Row, Cell.Column), Cells(SourceLastRow, Cell.Column))或者这里是如何做你想做的事情：
wbkSource_Feeder.Worksheets(1).Range(Cells(Cell.Offset(1, 0).Row, Cell.Column), Cells(SourceLastRow, Cell.Column)).Copy
destRNG.PasteSpecial xlPasteValues一些友好的建议(只是为了给这个简短的答案增加一点价值)：
- 定义你的变量，特定的范围(如
Dim destRNG as Range)。它将允许您使用intellisense. - I显示，您不认为您需要使用
Activate，因为您的大多数代码指定了工作表。 - 使用With为了避免必须键入大量引用工作表的definitions.
- When，请不要使用工作表显示名称(即"Sheet2")。尝试引用技术ID，以防某些crazy user更改选项卡名。
祝好运。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56654757
复制相关文章
相似问题