首页 文章

Excel VBA宏

提问于
浏览
1

清单: - “问题表”(工作表) .

我有一张excel表,它代表了每天大小不一的问题(行)列表(例如更多或更少的行);每行都分配了一个名称;指定的名称始终位于“问题表”的同一列“M”中;个人作业名称不一定每天都会出现,或者在某一天可能会出现多次(多于一行);

我已经有一个宏来创建一个分配名称的唯一列表(工作表),其中出现在问题表的M列中的每个名称都记录在“唯一列表”工作表中;同一个宏为作业名称的每个唯一出现创建一个新工作表(在同一工作簿中) . 分配名称将自动记录在新的单个工作表选项卡中 .

必需: - 将检查主要“问题表”的M列的宏;对于问题表的M列中出现特定分配名称的每一行/问题,将分配名称与同名工作表匹配,然后将整个行的详细信息从“问题表”复制并粘贴到第一行现有工作簿中正确(相同的指定名称)工作表的空白行 . 必须对问题表中的每一行重复此例程 .

1 回答

  • 0

    如果订单无关紧要,这可能是您最好的选择

    Sub x()
        Dim rngProbs As Range
        With ThisWorkbook.Worksheets("Problem Sheet")
            Set rngProbs = .Range("M1", .Range("M1").End(xlDown))
        End With
    
        Dim r As Range
    
    
        For Each r In rngProbs
            r.EntireRow.Copy
            ThisWorkbook.Worksheets(r.Text).Rows(1).EntireRow.Insert
        Next r
    
    End Sub
    

相关问题