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 用这段代码把上面的代码全部替换掉，看看结果是不是你想要的。希望能帮到你，祝你成功！
297
295
294
287
269
269
261
260
260
257
2023-12-13 20:31
admin