Excel的宏复制粘贴代码（excel中的宏复制粘贴代码）

Sub 粘贴() Dim i As Integer Range("f:f").Copy For i = 14 To 36 Step 2 Cells(1, i).PasteSpecial Paste:=xlPasteValues Next End Sub 用这段代码把上面的代码全部替换掉，看看结果是不是你想要的。希望能帮到你，祝你成功！