VBA
长理小彦祖
这个作者很懒,什么都没留下…
展开
-
VBA
'之前用for= i-1 to i+10,发现这句代码把for = i自己这行也删除了Sub shanchuchongfu2()'这个代码你懂得,。,Dim i As IntegerDim jj As IntegerDim kk As Integer'For i = 1 To 3100 这里重复很多 所以用300我都觉得够了'For i = 1 To 550 For i = 2 To 300'3100可以用end.xlup等确定,这里偷懒了 ' For kk = i + ...原创 2020-12-03 11:14:13 · 310 阅读 · 0 评论 -
VBA跨表复制
Sub Macro1()'' Macro1 Macro' 宏由 Administrator 录制,时间: 2020/12/01''Dim aa As IntegerFor aa = 0 To 19Application.ScreenUpdating = False '避免屏幕刷新,不好看 Windows("参会报告.xlsx").Activate Range("F" & 3 + aa).Select Selection.Copy Windows("工...原创 2020-12-01 16:29:32 · 1949 阅读 · 0 评论 -
VBA删除某些文件夹下的所有文件
‘写完就发现这个代码不用写得这么重复的Sub shanchuwenjian()Dim str As StringDim str2 As String'这个vba代码是后处理的代码,加载阶段未接触上进行修正Dim i, jj, kk As Integer Dim wb As Workbook For i = 1 To 10 str = Dir("C:\Users\DELL\Desktop\保存\*.*") 'str就是带有.xlsx的文件名 If str = "" T...原创 2020-11-29 16:04:58 · 4560 阅读 · 0 评论 -
vba调整word里面图片大小
Sub tongyixiugaichicun()Dim oInlineShape As InlineShape For Each oInlineShape In ActiveDocument.InlineShapes With oInlineShape .LockAspectRatio = msoFalse '不锁定纵横比 ' .ScaleHeight = 10 .Width = CentimetersToP...原创 2020-11-28 10:33:37 · 1597 阅读 · 0 评论 -
vba的IsFileExists显示出函数或子过程未定义
经常看见vba的IsFileExists显示出函数或子过程未定义,我的问题就是IsFileExists函数没写所以出问题,在相应的模块下加如下代码即可:Function IsFileExists(ByVal strFileName As String) As Boolean Dim objFileSystem As Object Set objFileSystem = CreateObject("Scripting.FileSystemObject") If objFileSys...原创 2020-11-27 09:49:58 · 1640 阅读 · 0 评论 -
vba打开关闭文件夹下的所有文件
'因为自己昨天想不通,在路上想了一会儿,今天过来一会儿就想明白了,看来做事还是讲效率比较好,磨时间没意义Sub dakaiguanbi()'这个代码就是进行二次后处理并生成建立新的excelDim str As String'这个vba代码是后处理的代码,加载阶段未接触上进行修正 Dim wb As Workbook str = Dir("C:\Users\DELL\Desktop\保存\*.*")' ActiveWindow.WindowState = xlNormal...原创 2020-11-27 09:45:57 · 1803 阅读 · 0 评论 -
2020-11-26
Sub woyebuzhdaozenmeshuo()'这个代码你懂得,。,Dim i As IntegerDim jj As IntegerDim kk As Integer'For i = 1 To 3100 这里重复很多 所以用300我都觉得够了'For i = 1 To 550 For i = 2 To 351'3100可以用end.xlup等确定,这里偷懒了 ' For kk = i + 1 To i + 50 50太多了。。效率很差 For kk = i...原创 2020-11-26 17:14:34 · 151 阅读 · 0 评论 -
vba进行(不同行之间有部分重复数据)的行删除
Sub shanchuchongfu()'Dim i As IntegerDim jj As IntegerFor i = 1 To 7 If Range("f" & i).Value = Range("f" & i + 1).Value Then Range("l" & i).Value = 15 If Range("j" & i).Value = Range("j" & i + 1).Value And Range("k" ...原创 2020-11-26 16:52:37 · 598 阅读 · 0 评论