小编use*_*335的帖子

我在为我的目标取得预期成果方面遇到了一些困难macro.

意图:

我有一个数据列表sheets(input).column A(有值的行数会有所不同,因此我创建了一个循环,它将运行宏,直到activecell为空).

我的宏从Range(A2)A列开始并一直延伸到A列,它只在遇到空行时停止

宏的所需结果将是开始复制sheet(input).Range(A2)粘贴它的单元格值sheet(mywork).Range(B2:B6).

例如,如果"Peter"是单元格中的值,sheet(input),range(A2)那么当marco运行并粘贴该值时sheet(mywork) range(B2:B6).即范围B2:B6将反映"彼得"

然后宏返回到工作表(输入)并复制下一个单元格值并将其粘贴到 range(B7:B10)

示例:"Dave"是值sheet(input) Range(A3),然后"Dave"将粘贴到接下来的4行中sheet(mywork).Range(B7:B10).B7:B10会反映"戴夫"

再次重复相同的过程回到工作表(输入)这次range(A4),复制值转到工作表(mywork)并将其粘贴到B11:B15.

基本上这个过程重复....

当activecell in sheet(input) column A为空时,宏结束.

Sub playmacro()
    Dim xxx As Long, yyy As Long
    ThisWorkbook.Sheets("Input").Range("A2").Activate
    Do While ActiveCell.Value <> ""
        DoEvents
        ActiveCell.Copy
        For xxx = 2 To 350 Step 4
            yyy = xxx + 3
            Worksheets("mywork").Activate 
            With …