Excel批量处理表格中关于VBA宏的使用

Excel批量处理表格中关于VBA宏的使用

excel是很重要的办公软件,我们通常需要在其中进行批量操作。如果是简单的操作可以通过鼠标轻松完成,但是如果要通过基于指定行和列来比较excel中的数据,等等完成一系列的操作,并且再修改的话,用VBA中的宏是推荐的。导入python再处理也可以,但是结果再次倒回来并且处理又是麻烦的操作,笔者就遇到这样的问题,所以学习了一下,放了一段样例和讲解在下面

怎么使用VBA?

打开excel-》开发工具-》VBA
在这里插入图片描述
打开之后是下面的这个样子,双击你要进行操作的sheet,在右侧输入代码即可
在这里插入图片描述

示例任务

笔者需要根据excel中的数据,比较某些列的值大小,计算输赢的次数,进行统计,同时并对更小的数据进行加粗,下面是代码和详解。

代码和注释

Sub Macro1()
    Dim ws As Worksheet
    Dim i As Integer
    Dim v1 As Double
    Dim v2 As Double
    Dim v3 As Double
    Dim v4 As Double
    Dim win1 As Integer
    Dim lose1 As Integer
    Dim win2 As Integer
    Dim lose2 As Integer
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    win1 = 0
    lose1 = 0
    win2 = 0
    lose2 = 0
    
    For i = 3 To 301
        v1 = ws.Cells(i, "F").Value
        v2 = ws.Cells(i, "N").Value
        v3 = ws.Cells(i, 
  • 7
    点赞
  • 7
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
Excel VBA实现批量提取Word表格内容可以通过以下步骤进行: 1.首先,在Excel的工作簿打开Visual Basic Editor(VBE)。 2.在VBE的工具栏上,选择“插入”→“模块”,在模块编写VBA代码。 3.在编写代码之前,确保已经添加对Microsoft Word对象库的引用。可以通过在VBE选择“工具”→“引用”来添加引用。 4.在VBA代码的模块使用Word对象变量来打开Word文档。例如,可以使用以下代码打开一个名为"Document1.docx"的Word文档: ``` Dim wdApp As Word.Application Dim wdDoc As Word.Document Set wdApp = New Word.Application Set wdDoc = wdApp.Documents.Open("C:\路径\Document1.docx") wdApp.Visible = True ``` 5.接下来,使用“With”语句和对象变量来引用Word文档表格,然后遍历表格的每个单元格,并将其值复制到Excel工作。 ``` With wdDoc For Each tbl In .Tables For Each cell In tbl.Range.Cells '将单元格值复制到Excel工作的指定位置 Worksheets("Sheet1").Cells(rowNum, colNum).Value = cell.Range.Text '更新行号和列号 rowNum = rowNum + 1 colNum = colNum + 1 Next cell Next tbl End With ``` 6.在代码结束时,记得关闭Word文档和应用程序对象。 ``` wdDoc.Close wdApp.Quit Set wdDoc = Nothing Set wdApp = Nothing ``` 以上步骤将通过Excel VBA实现一键批量提取Word表格内容。可以根据具体需求进行适当的修改和调整,如指定目标表格的位置、添加错误处理等。

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

原创小白变怪兽

帮助原创小白成为怪兽吧!

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值