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

相关文章推荐

冷冷的茄子 · VBA中listbox控件额阐述_vba ...· 2 周前 ·

发财的煎饼果子 · excel vba ...· 2 周前 ·

傲视众生的葡萄 · VBA动态数组简单应用_vba ...· 1 周前 ·

深情的炒粉 · (VBA) 使用数组 | ...· 1 周前 ·

仗义的苹果 · vba如何将数组添加到下拉列表中，数组中的某 ...· 1 周前 ·

犯傻的铅笔 · 在Eclipse ...· 2 周前 ·

风流倜傥的黄豆 · 74 系列选型参考 - ...· 2 月前 ·

果断的饼干 · 为 Microsoft HPC Pack ...· 3 月前 ·

活泼的冲锋衣 · streamlit的小程序如何部署到阿里云？ ...· 1 年前 ·

腾讯云

备案控制台

开发者社区

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...

推荐文章

冷冷的茄子 · VBA中listbox控件额阐述_vba listbox-CSDN博客

2 周前

发财的煎饼果子 · excel vba 如何在listbox控件中显示表头 - CSDN文库

2 周前

傲视众生的葡萄 · VBA动态数组简单应用_vba 动态数组用法-CSDN博客

1 周前

深情的炒粉 · (VBA) 使用数组 | Microsoft Learn

1 周前

仗义的苹果 · vba如何将数组添加到下拉列表中，数组中的某些元素带有逗号，要求不影响原数组的值 - CSDN文库

1 周前

犯傻的铅笔 · 在Eclipse IDE使用Gradle构建应用程序 - 林本托 - 博客园

2 周前

风流倜傥的黄豆 · 74 系列选型参考 - wangchenxicool - 博客园

2 月前

果断的饼干 · 为 Microsoft HPC Pack 生成 VBA 应用程序和工作簿 | Microsoft Learn

3 月前

活泼的冲锋衣 · streamlit的小程序如何部署到阿里云？ - 知乎

1 年前

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

1 个回答