[已解决]复制A1改成复制到表一A2

果冻的心

Sub GetTheTitle()
    Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)     '读取的文件名除去后缀
    Range("A1") = Version
End Sub


将复制到A1单元格改成复制到工作簿下第二个工作表的A2处

最佳答案

月排行榜 / 总排行榜

zjdh

2022-5-22 08:58

Sub GetTheTitle()
    Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)     '读取的文件名除去后缀
    Sheets(2).Range("A2") = Version
End Sub

跳转到最佳答案楼层

zjdh

Sub GetTheTitle()
    Version = Left(ThisWorkbook.Name, InStr(ThisWorkbook.Name, ".") - 1)     '读取的文件名除去后缀
    Sheets(2).Range("A2") = Version
End Sub