VBA
工作日常记录
soapcmd
这个作者很懒,什么都没留下…
展开
-
VBA之多工作簿作为单个Sheet(命名为原工作簿名)复制到一个另工作簿
比如文件夹下有test.xlsm(存放宏的文件)、a.xlsx(Sheet1)、b.xlsx(Sheet1)以及x.xlsx(Sheet xxx为第2个Sheet)我们的任务是将a.xlsx的Sheet1和b.xlsx的Sheet1复制到x.xlsx的Sheet xxx之前确保启动时光标在test.xlsm中Dim i As Integer For i = 1 To Workbooks.Count Cells(i, 1) = Workbooks(i).name Next原创 2021-04-05 20:03:58 · 2395 阅读 · 0 评论 -
VBA暂停执行防止卡退
考虑到连续执行过多代码程序会卡退,因此添加暂停按钮很有必要Application.Wait (Now + TimeValue("0:00:1")) '1为1秒原创 2021-04-05 19:47:33 · 876 阅读 · 0 评论 -
VBA复制筛选后的内容
注意此代码背景是筛选A列值为“lala”的数据,拷贝A至AA列所有数据Function CopySelectValue(SheetsName1 As String,) Dim MaxRow, MinRow As Integer Sheets(SheetsName1).Activate Range("A1").Select Selection.AutoFilter ActiveSheet.Range("$A$1:$AA$" & i).AutoFilter Fi原创 2021-04-05 19:43:25 · 10813 阅读 · 9 评论 -
VBA向单元格输入双引号
需要输入两个双引号如想在单元格中输入=SUMIFS('a'!E:E,U:U,A5,B:B,"H")则需要用VBA代码range("A1").value = "=SUMIFS('a'!E:E,U:U,A5,B:B,""H"")"可以看到最外面加了一对引号文本内容中的单引号不需要处理文本内容中的双引号一个变两个...原创 2021-04-05 19:31:24 · 4292 阅读 · 0 评论