(X).Range("B3").CurrentRegion.Copy '一旦选择的不是北非,这一行因为没有对应sheet就会出错,导致触发事件没有打开,请运行下面的test过程打开触发事件 Sheet5.Range("B5").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.EnableEvents = True ...
1、先打开电脑上面的excel，然后点击左上角的文件。2、之后选择弹窗中的选项；3、然后点击信任中心；4、之后点击信任中心设置；5、然后点击宏设置；6、之后点击勾选上信任对VBA工程对象模型的访问，之后点击确定就可以解决这个问题了。
Submerge()f=Application.GetOpenFilename(MultiSelect:=True)Setsh=ActiveSheetFori=LBound(f)ToUBound(...
Sub 合并数据() Dim wb As Integer For wb = 2 To Workbooks.Count Workbooks(wb).Worksheets(1).Range("a1").CurrentRegion.Copy _ Workbooks(1).Worksheets(1).Range("a65536").End(xlUp).Offset(1, 0) Next wbEnd Sub ...
2而且报错类range的select方法无效,需调试的代码黄色标出,不知道错在哪里,这种写法有问题吗代码如下: Sub test1() Dim i As Integer Dim j As Integer For i = 1 To 7 For j = 70 To 2 Step -1 If Sheets(i).Range("d" & j) = "" Then Sheets(i).Range("d" & j).Select Selection.Entire...
你先得sheets(j).select 先激活表，再执行你的语句
Private Sub CommandButton1_Click()Dim newbook As Workbook Set newbook = Workbooks.Add newbook.Sheets(1).Select ActiveSheet.Range("C4").Select End Sub 答案跟 jiaqi9266 的冲突了。jiaqi9266 是个高手，他的代码执行效率高，要想成为高手用他的代码，我的适合初学者，也符合录制宏的代码。...
arr = Sheets("公司现行基药").Range("a1:i" & x)brr = Sheets("平台基药库存").Range("a1:i" & y)For i = 2 To x b = arr(i, 1) & "," & arr(i, 6)If Not d.exists(b) Then d(b) = ""Next For i = 2 To y p = brr(i, 1) & "," & brr(i, 6)If d...
在Workbook_Open事件里的,报的是:类Range的Select方法无效。我想实现在工作簿打开时将工作表里的部分内容清理,但会报这个错,有什么办法解决一下?在open事件里写ThisWorkbook.Worksheets(5).Cells(2, "G").value = 1都是没有问题的。请问ThisWorkbook.Worksheet(1).Range("A10:O11").Select与Sheet1.Range("A10...