在代码窗口中写上以下代码： Sub run For i = 1 To 8 Cells(2 + (i

如下图所示，需要将A2:B9的内容，转变为D列的样子。
思考一下，有几种方法能实现呢?
1、VBA代码法
按Ctrl+F11 ，打开VBE编辑器，在代码窗口中写上以下代码：
Sub run()
For i = 1 To 8
Cells(2 + (i – 1) * 2, 4) = Cells(i + 1, 1)
Cells(3 + (i – 1) * 2, 4) = Cells(i + 1, 2)
Next i
End Sub
代码中使用For循环，执行单元格赋值操作。只要运行宏run ，就可以得到需要的结果了。
2、函数公式法
D2单元格输入以下公式，向下复制。
=OFFSET(A$2,(ROW(A1)-1)/2,MOD(ROW(A1)-1,2))
【在代码窗口中写上以下代码： Sub run For i = 1 To 8 Cells(2 + (i – 1) * 2】OFFSET函数以A2单元格为基点，其行列偏移量使用公式生成的有规律的序列值。关于第二参数和第三参数的用法，可以在微信内容<我们一起学序号>有过介绍，这里就不再赘述了，有兴趣的同学可以点击查看一下。
3、技巧操作法
这是一组技巧的集合，方法很多，咱们看看几种有代表性的：
1、选择性粘贴法
2、对齐填充法
3、Word替换法
说明一下， Word替换时使用的 ^t 表示制表符， ^p表示段落标记。也就是将制表符全部替换为段落标记。

在代码窗口中写上以下代码： Sub run For i = 1 To 8 Cells(2 + (i – 1) * 2

推荐阅读

关于节约粮食的名言诗句关于节约粮食的名言和诗句

奋斗励志朋友圈句子励志短句致自己奋斗朋友圈

想发朋友圈表示心情不好的句子心情不好发朋友圈的句子心情短句

贝拉玻尿酸是合法的吗贝拉玻尿酸是进口的还是国产的

核桃仁做菜的菜谱，您知道桃仁脆溜鸡的做法

浅紫色显皮肤黑还是白

库伦旗景点

居家隔离和集中隔离的区别什么情况下要隔离28天

蝉蛹是什么

怎样能丰胸最安全有效

在代码窗口中写上以下代码： Sub run For i = 1 To 8 Cells(2 + (i &#8211; 1) * 2

推荐阅读

在代码窗口中写上以下代码： Sub run For i = 1 To 8 Cells(2 + (i – 1) * 2