VBA实战案例：整理Endnote导出的TXT文档

最新推荐文章于 2023-12-27 15:09:02 发布

高开低走。

最新推荐文章于 2023-12-27 15:09:02 发布

阅读量748

点赞数

分类专栏：锦到说VBA

本文链接：https://blog.csdn.net/qq_43568982/article/details/109475282

版权

锦到说VBA 专栏收录该内容

37 篇文章 25 订阅

订阅专栏

整理Endnote导出的TXT文档

在这里插入图片描述
从Endnote里面导出的文本文件复制到Excel文件中，里面包含了作者，年份，标题，摘要，关键字以及其他的一些信息，实际上并不需要这么多信息，所以这里用VBA写一个简单的复制粘贴代码就行了

Option Explicit
Sub Move_Sheet()
    Dim w1 As Worksheet, w2 As Worksheet
    Dim r1 As Range, r2 As Range, r3 As Range, r4 As Range
    Set w1 = Worksheets("源数据")
    Set w2 = Worksheets("整理数据")
    
    '查找对应字段
    Set r1 = w1.Cells.Find(what:="作者")
    Set r2 = w1.Cells.Find(what:="年份")
    Set r3 = w1.Cells.Find(what:="题目")
    Set r4 = w1.Cells.Find(what:="期刊")
    
    '对应列复制到新表里面
    w1.Columns(r1.Column).Copy w2.Columns(4)
    w1.Columns(r2.Column).Copy w2.Columns(3)
    w1.Columns(r3.Column).Copy w2.Columns(2)
    w1.Columns(r4.Column).Copy w2.Columns(5)

End Sub