VBA80集 第12集练习2

h200797080

复件 VBA80第12集.rar (161 KB, 下载次数: 41)

2012-6-8 14:14 上传

点击文件名下载附件
本题代码文件 了？
重新修改了代码， 方法union作用于对像 global 时失败
Sub 合并()
Dim wb As Workbook
Dim rg As Range
Dim rn As Range
Dim i As Integer
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")  
For i = 1 To Sheets.Count
If i = 1 Then
Sheets("1月").Select
Set rg = Range("A1").CurrentRegion  
Else: Sheets(i & "月").Select
Set rn = Range("a2").CurrentRegion
     rg = Union(rn, rg)
     End If
     Next
Set wb = Workbooks.Open(ThisWorkbook.Path & "\第12集练习题.xls") 'Set wb = Workbooks.Open(ThisWorkbook.Path & "\第12集练习题.xls")
Sheets("sheet2").Select
  Range("a65536").End(xlUp).Offset(1, 0) = rg
  
     End Sub

kebe

不会VB，帮你顶上去

兰色幻想

union只能对同一个工作表的单元格进行UNION,不能异表操作

h200797080

兰色幻想 发表于 2012-6-6 20:31
union只能对同一个工作表的单元格进行UNION,不能异表操作

那有没有对异表单元格进行集合的指令呢？
Sub 合并()
Dim wb As Workbook
Dim rg As Range
Dim i As Integer
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
For i = 1 To Sheets.Count
If i = 1 Then
Sheets("1月").Select
Set rg = Range("A1").CurrentRegion
Set wb = Workbooks.Open(ThisWorkbook.Path & "\第12集练习题.xls")
Sheets("sheet2").Select
  Range("a65536").End(xlUp).Offset(1, 0) = rg
Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
Else: Sheets(i & "月").Select
Set rg = Range("a2").CurrentRegion  
Set wb = Workbooks.Open(ThisWorkbook.Path & "\第12集练习题.xls")
Sheets("sheet2").Select
  Range("a65536").End(xlUp).Offset(1, 0) = rg
     End If
     Next
wb.Close False
   End Sub
为什么什么结果都没有呢？？？

兰色幻想

请上传一个表格，方便测试

h200797080

兰色幻想 发表于 2012-6-7 22:47
请上传一个表格，方便测试

校长  {:031:}这个就是VBA80集里面的第12集练习2  这个练习里面有表的啊
压缩文件已放在楼主层

兰色幻想

你声明的变量WB,有什么作用吗.操作不同的文件,一定要标注是哪个工作簿的哪个工作表的单元格的数据,就好比两个班都有叫张三的,你不说哪个班的,怎么知道你在喊哪个. 你这段代码中就犯了这个错误

h200797080

兰色幻想 发表于 2012-6-8 16:01
你声明的变量WB,有什么作用吗.操作不同的文件,一定要标注是哪个工作簿的哪个工作表的单元格的数据,就好比两 ...

Sub 合并()
Dim wb As Workbook
Dim rg As Range
Dim i As Integer
   Set wb = Workbooks.Open(ThisWorkbook.Path & "\A.xls")
For i = 1 To wb.Sheets.Count
If i = 1 Then
Set rg = wb.Sheets("1月").Range("A1").CurrentRegion
ThisWorkbook.Sheets("第2题").Range("a1") = rg
Else: Set rg = wb.Sheets(i & "月").Range("a2").CurrentRegion                          类型不匹配
  ThisWorkbook.Sheets(Sheet2).Range("a65536").End(xlUp).Offset(1, 0) = rg
     End If
     Next
wb.Close true
End Sub
设置WB是为了省事，没有其他的意义
这段代码运行成功了一次 之后就不行了 提示类型不匹配的错误
之前么写表名 我以为VBA会自己选择打开的表里面的数据的{:021:}

momo沫沫

12题 好难。。。。

figgy

没搞好啊……