1ãå¦å¾ï¼A1åå æ ¼å 容æ¯âç¾åº¦âãæ è¿ä¸ªå 容å¤å¶å°ä»B1å°F11å¤ä¸ªåå æ ¼ä¸ã
2ãå¤å¶A1åå æ ¼å 容ï¼ç¶åéä¸A1å°F11å¤ä¸ªåå æ ¼ãå¨ç¼è¾æ ï¼å³é®ï¼ç²è´´ã
3ãé®çå¿«æ·é®âctrl+Enterâå³å¯ã
用VBA代码,如下:
Sub cr()
Dim n As Integer, i As Integer
n = Range("a65536").End(xlUp).Row
For i = 3 To n + 3 Step 3
Cells(i - 1, 1).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i, 1).Select
ActiveSheet.Paste
Cells(i + 1, 1).Select
ActiveSheet.Paste
Cells(i - 1, 2).Select
Application.CutCopyMode = False
Selection.Copy
Cells(i, 2).Select
ActiveSheet.Paste
Cells(i + 1, 2).Select
ActiveSheet.Paste
Next
End Sub
效果如下(点一图片可显示动画哦)