使用中断将Excel中的数据从一列粘贴到另一列

Question

我的数据格式如图所示

我希望数据的格式如下图所示。

这意味着我希望图像1中1991年的数据从图像2粘贴到1991年，类似地，1992年图像1中的数据将从图像2粘贴到1992年。 不是从图像1手动复制1991,1992,1993中的数据并将其粘贴在图像2中，而是希望使用编程自动完成，因为我需要管理大量数据。可以通过使用VBA来完成吗？

Answer 1

是的，它可以由VBA完成。您需要做的是将图像1中的所有数据放入dictionary。然后对于图像2，您可以在字典中找到密钥并将结果粘贴到单元格中。

PS：您可以使用Offset访问其他单元格

Answer 2

请尝试此代码。代码中的注释将帮助您进行必要的调整，特别是包含数据的工作表的名称以及要转置的第一列。

In [16]: def hours2days(hours):
    ...:     return divmod(hours, 24)
    ...: 

In [17]: days, hrs = hours2days(39)

In [18]: days
Out[18]: 1

In [19]: hrs
Out[19]: 15