【004】文献整理(包含字符中符号查找和替换、文件重命名)_#VBA

文献整理

根据中国知网批量下载的参考文献

年限

Sub asd()

    For i = 4 To 43
        Yearn = Cells(i, 4).Value & "," & Cells(i, 5).Value & "(" & Cells(i, 6).Value & "):" & Cells(i, 7)
        Cells(i, 4) = Yearn
    Next

End Sub

整理前

整理后

按序号更改文献名

Sub sda()

    For i = 2 To 43
        Filename = Cells(i, 3).Value
        Index = InStr(Filename, "/")                ' 查找字符中存在某特定符号的数量
        If Index > 0 Then
            Filename = Replace(Filename, "/", "_")  ' 替换字符中存在某特定符号的数量
        End If
        Name "D:\Users\yang\Desktop\英文论文\英文论文\" & Filename & ".pdf" As "D:\Users\yang\Desktop\英文论文\英文论文\" & i - 1 & "." & Filename & ".pdf"
    Next
    
End Sub

按照Excel文件排序，将文件名添加序号

参考地址：https://docs.microsoft.com/zh-cn/office/client-developer/excel/excel-home?redirectedfrom=MSDN
该代码仅供学习，如商业转载请联系本人，非商业转载请注明出处

---

#加油#