使用For循环根据VBA中单元格中的文本将整行从工作表复制到另一个工作表

相关文章推荐

勤奋的充电器 · 如何在Excel ...· 1 月前 ·

强悍的鸵鸟 · 沈阳地铁7号线的开工时间？_腾讯新闻· 11 月前 ·

激动的熊猫 · 集智创新聚力攻关 ...· 1 年前 ·

长情的人字拖 · 星巴克广告被指误导消费者，该案结果在中美会有 ...· 1 年前 ·

活泼的黄花菜 · 什么是光模块，100G、400G、800G有 ...· 2 年前 ·

爱旅游的铁链 · 《复活的军团》演出_百度百科· 2 年前 ·

腾讯云

备案控制台

开发者社区

TVP

文章/答案/技术大牛

写文章

使用For循环根据VBA中单元格中的文本将整行从工作表复制到另一个工作表

Sub Demo1()
Dim wb As Workbook
Dim ws As Worksheet, sh As Worksheet
Dim lastrow As Long
Dim w As Integer
Dim i As Integer
Set wb = Workbooks(Book1)
Set ws = Worksheets("Sheet4")
Set sh = ActiveSheet
For w = 1 To wb.Sheets.Count
    For i = 1 To lastrow
        If ActiveSheetCells(i, 2).Value = "In Progress" Then
        wb.ws.Cells(1, 1).Insert
        If Cells(i, 2).Value = "" And i < 50 Then
        ActiveCell.Offset(1, 0).Select
        End If
        Cells(i, 2).Value = "" And i > 49
   Next i
Next w

Sub Demo1()
Dim wb As Workbook:  Set wb = Workbooks("Book1")
Dim destinationSheet As Worksheet:  Set destinationSheet = wb.Worksheets("Sheet4")
Dim sourceSheet As Worksheet:  Set sourceSheet = ActiveSheet
With sourceSheet
    Dim lastRowSource As Long:  lastRowSource = .Cells(.Rows.Count, 1).End(xlUp).Row
    Dim w As Long, i As Long
    For w = 1 To wb.Sheets.Count
        For i = 1 To lastRowSource
            If .Cells(i, 2).Value = "In Progress" Then
                destinationSheet.Cells(1, 1).Insert
                If .Cells(i, 2).Value = "" And i < 50 Then
                    'Why are you Selecting and what are you doing with it?
                    .Cells(i,X).Offset(1, 0).Select 'Change from "activeCell" to an actual cell reference as you don't change the activecell when looping...

推荐文章

勤奋的充电器 · 如何在Excel VBA中运用IsNumeric函数-百度经验

1 月前

强悍的鸵鸟 · 沈阳地铁7号线的开工时间？_腾讯新闻

11 月前

激动的熊猫 · 集智创新聚力攻关 “3C智能制造创新联合体”在京启动_北京要闻_首都之窗_北京市人民政府门户网站

1 年前

长情的人字拖 · 星巴克广告被指误导消费者，该案结果在中美会有哪些不同？

1 年前

活泼的黄花菜 · 什么是光模块，100G、400G、800G有什么区别呢？ - 知乎

2 年前

爱旅游的铁链 · 《复活的军团》演出_百度百科

2 年前

使用For循环根据VBA中单元格中的文本将整行从工作表复制到另一个工作表

1 个回答