Question

这是问题所在。我试着建立一个简单的回归测试。我有两张链接在一起的表和其他一些vba功能。为了定期测试，我使用了copy-move-＆gt;制作一份副本，然后创建好的工作表的精确副本，然后用好的sheetb重复，并截取我运行代码后正常工作时的外观。我所要做的就是复制这些已知数据，运行代码，然后根据我的屏幕截图检查输出。或者我想。当我运行代码时，许多事情只是改变了自己，尽管事实上我正在处理一系列数据形成这张表的克隆。使用

range( a ).value = range( b).value  '(pseudo-code)

我有一个年龄/重量的列，如35 / 12-11现在它被格式化为日期，没有摆弄数据类型可以恢复它。我怎样才能选择执行这种艰苦的行为？接下来的事情是文本，即一般列中的人名在目标列中显示为0。为什么？它来自一个永远存在的克隆，没有问题。

任何人都可以阐明这一点。尝试用这种方式编写一个解决方案是毁灭性的，但我已经在其中投入了很多。任何帮助都乐意接受

Answer 1

你可以尝试这样的事情。只是不要忘记声明你的变量。这也假定行A是您的信息

的地方

With shttocopy
'finds last row with information
LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
'finds last column with information
LastColumn = .cells(LastRow , .Columns.Count).End(xlLeft).Row
'copies cells with information regarding the customer information
'pastes those copied cells into the sheet you want the information moved to 
   .Range(LastRow:LastColumn).Copy _
               destSheet.Cells(Rows.Count, "A").End(xlUp).Offset(1)


end with

如何将数据复制到现有工作表而不会丢失任何数据类型或格式

1 个答案: