计算行单元格并复制并粘贴

如何解决计算行单元格并复制并粘贴

我使用我的代码处理基于C#的宏软件 但是我只想使用VBA而不是c#来执行宏 能做到吗?不使用点?

  1. B2〜Bxxxxx中的数据
  2. 我的c#程序确实复制了B2单元格值并粘贴了另一个工作表K3单元格
  3. 在代码下运行宏
    Sub CopyRows()
    
    Application.ScreenUpdating = False
    Application.EnableEvents = False
    ActiveSheet.DisplayPageBreaks = False
    
     Dim bottomL As Long
     Dim x As Long
     bottomL = Sheets("Total").Range("L" & Rows.Count).End(xlUp).Row: x = 1
     
     Dim c As Range
     Dim lr As Long
    
     lr = Cells(Rows.Count,1).End(xlUp).Row
     For Each c In Sheets("Total").Range("K1:K" & bottomL)
     If c.Value = "Inside" Then
     c.EntireRow.Copy Worksheets("filter").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
     x = x + 1
     End If
     Next c
     
    End Sub
  1. 然后我的c#程序确实选择b3并复制到其他工作表k3单元格,然后运行宏,然后循环该过程并结束Bxxxxx上的单元格

有人知道只能使用VBA吗?

对不起,我的英语不好

解决方法

在VBA中输入完整的代码,如下所示:

Function CopyRows()
  Application.ScreenUpdating = False 
  Application.EnableEvents = False 
  ActiveSheet.DisplayPageBreaks = False
  Dim bottomL As Long 
  Dim x As Long 
  bottomL = Sheets("Total").Range("L" & Rows.Count).End(xlUp).Row
  x = 1
  Dim c As Range Dim lr As Long
  lr = Cells(Rows.Count,1).End(xlUp).Row 
  For Each c In Sheets("Total").Range("K1:K" & bottomL) 
    If c.Value = "Inside" Then 
      c.EntireRow.Copy 
      Worksheets("filter").Range("A" & Rows.Count).End(xlUp).Offset(1,0) 
       x = x + 1 
    End If  
  Next c
End Function 

Sub Main()
  Dim bottomB As Long 
  Dim y As Long 
  bottomB = Range("B" & Rows.Count).End(xlUp).Row
  For y = 2 To bottomB
    Range("B" & 2).Copy Worksheets("Total").Range("K3")
    CopyRows
  Next
End Sub

然后仅运行Sub Main()。

,

感谢Wasif Hasan

我已经使用了我编写的这段代码

Sub dual()

Application.ScreenUpdating = False ActiveSheet.DisplayPageBreaks = False

    Dim i As Long
    Dim totalRows As Long
    Dim lastRow As Long
    Dim Number As Long
    Dim nowRows As Long
    Dim bottomL As Long
    Dim x As Long
    Dim c As Range
    Dim lr As Long
    
    bottomL = Sheets("Total").Range("L" & Rows.Count).End(xlUp).Row: x = 1
    lr = Cells(Rows.Count,1).End(xlUp).Row

    With Worksheets("List")
        'for looping
        totalRows = .Cells(.Rows.Count,"B").End(xlUp).Row

        'index of row to add from
        lastRow = totalRows + 1 '<--| start pasting values one row below the last non empty one in column "B"

        'data starts at row #2
        For i = 2 To totalRows
            If .Cells(i,2).Value > 0 Then
                Worksheets("List").Cells(i,"B").Copy
                Worksheets("Total").Range("K3").PasteSpecial Paste:=xlPasteValues
                lastRow = lastRow + Number
                    For Each c In Sheets("Total").Range("L1:L" & bottomL)
                    If c.Value = "Inside" Then
                    c.EntireRow.Copy Worksheets("filter").Range("A" & Rows.Count).End(xlUp).Offset(1,0)
                    x = x + 1
                    End If
                    Next c
            End If
        Next i
    End With Application.ScreenUpdating = True ActiveSheet.DisplayPageBreaks = True End Sub

,但在复制和粘贴时丢失了许多数据 所以需要等待粘贴完成 所以我用其他程序 有什么办法让等待粘贴完成吗? 想你的答案

,

如果没有必要复制和粘贴,请尝试不使用该命令。仅使用cell1.Value = cell2.Value更快。 在您的情况下,您应该声明一个变量以计算b中的列总数。然后使用循环遍历b2直至bx。 示例:


将i视作整数
dim j为Integer
j = 3


对于i = 2等于totalCount

Worksheet.Cells(2,i).Value = Worksheet2.Cells(11,j)
j = j + 1

下一个我



在上面2 = B列和11 = K列

版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。

相关推荐


依赖报错 idea导入项目后依赖报错,解决方案:https://blog.csdn.net/weixin_42420249/article/details/81191861 依赖版本报错:更换其他版本 无法下载依赖可参考:https://blog.csdn.net/weixin_42628809/a
错误1:代码生成器依赖和mybatis依赖冲突 启动项目时报错如下 2021-12-03 13:33:33.927 ERROR 7228 [ main] o.s.b.d.LoggingFailureAnalysisReporter : *************************** APPL
错误1:gradle项目控制台输出为乱码 # 解决方案:https://blog.csdn.net/weixin_43501566/article/details/112482302 # 在gradle-wrapper.properties 添加以下内容 org.gradle.jvmargs=-Df
错误还原:在查询的过程中,传入的workType为0时,该条件不起作用 &lt;select id=&quot;xxx&quot;&gt; SELECT di.id, di.name, di.work_type, di.updated... &lt;where&gt; &lt;if test=&qu
报错如下,gcc版本太低 ^ server.c:5346:31: 错误:‘struct redisServer’没有名为‘server_cpulist’的成员 redisSetCpuAffinity(server.server_cpulist); ^ server.c: 在函数‘hasActiveC
解决方案1 1、改项目中.idea/workspace.xml配置文件,增加dynamic.classpath参数 2、搜索PropertiesComponent,添加如下 &lt;property name=&quot;dynamic.classpath&quot; value=&quot;tru
删除根组件app.vue中的默认代码后报错:Module Error (from ./node_modules/eslint-loader/index.js): 解决方案:关闭ESlint代码检测,在项目根目录创建vue.config.js,在文件中添加 module.exports = { lin
查看spark默认的python版本 [root@master day27]# pyspark /home/software/spark-2.3.4-bin-hadoop2.7/conf/spark-env.sh: line 2: /usr/local/hadoop/bin/hadoop: No s
使用本地python环境可以成功执行 import pandas as pd import matplotlib.pyplot as plt # 设置字体 plt.rcParams[&#39;font.sans-serif&#39;] = [&#39;SimHei&#39;] # 能正确显示负号 p
错误1:Request method ‘DELETE‘ not supported 错误还原:controller层有一个接口,访问该接口时报错:Request method ‘DELETE‘ not supported 错误原因:没有接收到前端传入的参数,修改为如下 参考 错误2:cannot r
错误1:启动docker镜像时报错:Error response from daemon: driver failed programming external connectivity on endpoint quirky_allen 解决方法:重启docker -&gt; systemctl r
错误1:private field ‘xxx‘ is never assigned 按Altʾnter快捷键,选择第2项 参考:https://blog.csdn.net/shi_hong_fei_hei/article/details/88814070 错误2:启动时报错,不能找到主启动类 #
报错如下,通过源不能下载,最后警告pip需升级版本 Requirement already satisfied: pip in c:\users\ychen\appdata\local\programs\python\python310\lib\site-packages (22.0.4) Coll
错误1:maven打包报错 错误还原:使用maven打包项目时报错如下 [ERROR] Failed to execute goal org.apache.maven.plugins:maven-resources-plugin:3.2.0:resources (default-resources)
错误1:服务调用时报错 服务消费者模块assess通过openFeign调用服务提供者模块hires 如下为服务提供者模块hires的控制层接口 @RestController @RequestMapping(&quot;/hires&quot;) public class FeignControl
错误1:运行项目后报如下错误 解决方案 报错2:Failed to execute goal org.apache.maven.plugins:maven-compiler-plugin:3.8.1:compile (default-compile) on project sb 解决方案:在pom.
参考 错误原因 过滤器或拦截器在生效时,redisTemplate还没有注入 解决方案:在注入容器时就生效 @Component //项目运行时就注入Spring容器 public class RedisBean { @Resource private RedisTemplate&lt;String
使用vite构建项目报错 C:\Users\ychen\work&gt;npm init @vitejs/app @vitejs/create-app is deprecated, use npm init vite instead C:\Users\ychen\AppData\Local\npm-