首页 文章

对于循环范围，任务是复制和粘贴特殊

提问于
浏览 次
0

这是与for循环相关的问题，我在论坛中搜索了该问题，但找不到与查询相关的答案 . 电子表格有这样的数据

A               B  C  D  E

2 20120425 09:55:00 101 99 102 100.50
3 20120425 09:55:00 101 102 98 101.50

我想要做的就是在同一张纸上

H

2 101
3 99
4 102
5 100.50

那是复制范围B2：E2然后选择h2并粘贴特殊（它将粘贴在h2，h3，h4，h5 . ）然后重复B3的任务：E3复制范围并在h6上粘贴特殊 .

我已经记录了宏，但任务必须重复近5000行，我没有技术背景，也不熟悉VBA . 我将不胜感激为此问题提供任何帮助 .

历史：我已经尝试过这里发布的几个熟悉这个主题的代码，但是大多数代码最终都会出现运行时错误，很少吸引数据，如果我试图编辑某些内容，那么VBA调试器会告诉我你无法运行处于中断模式的代码（谷歌的错误，然后按f5完成其他正在运行的脚本，并得到一些其他类型的错误，如文件尚未正确结束或脚本错误）

录制的代码

Sub Macro9()

''Macro9 Macro'

'范围（“D1：G1”） . 选择Selection.Copy范围（“L1：L4”） . 选择Selection.PasteSpecial Paste：= xlPasteAll，Operation：= xlNone，SkipBlanks：= _ False，Transpose：= True Range（“ D2：G2“） . 选择Selection.Copy Range（”L5：L8“） . 选择Selection.PasteSpecial Paste：= xlPasteAll，Operation：= xlNone，SkipBlanks：= _ False，Transpose：= True End Sub

excel excel-vba for-loop vba

1 回答

  • 1

    以某种方式找出答案，VBA的新手，这是一个很好的学习经历..

    Sub alex4()

    Dim k As Integer，i As Integer，lngRows As Integer

    lngRows =范围（“A1”） . CurrentRegion.Rows.Count

    对于k = 1到（lngRows * 4）

    对于i = 1到lngRows

    k = k 4

    范围（单元格（i，4），单元格（i，7）） . 选择

    Selection.Copy    

Range(Cells(k, 12), Cells(k + 3, 12)).Select    

Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _    

    False, Transpose:=True

    接下来我

    下一个k

    结束子

    回复于

相关问题