excel vba按读取打开的excel文件数据并按条件写入未打开的excel文件

xuersweety

zhaogang1960 发表于 2012-1-10 22:34
建议NN表和MM表放到两个工作表中处理，因为NN表区域太大的话就可能包含MM表，两个区域不能交叉，否则可就 ...

这个倒不会，我的NN表和MM表的结构是完全一样的。只不过我上传的文件里只有这两个表，而实际的表里有20个左右的像NN表和MM表结构一样的表。每个表之间都有一个空行。
这样要是不打开，有没有简单的方法实现呀？
还是每个都必须重新定义一个t = "[Feuil1$" & [a3].Resize(2, lc).Address(0, 0) & "]" =[Feuil1$A3:M4]？

zhaogang1960

xuersweety 发表于 2012-1-10 22:44
这个倒不会，我的NN表和MM表的结构是完全一样的。只不过我上传的文件里只有这两个表，而实际的表里有20个 ...

后面的=[Feuil1$A3:M4]是个说明

采用打开方式就简单多了，先查找NN所在单元格，就可以确定数据区域，再在数据区域内查找F1、F2、F3……
复制数据

xuersweety

zhaogang1960 发表于 2012-1-10 22:49
后面的=[Feuil1$A3:M4]是个说明

采用打开方式就简单多了，先查找NN所在单元格，就可以确定数据区域， ...

十分感谢，学习了~~~

xuersweety

zhaogang1960 发表于 2012-1-10 22:49
后面的=[Feuil1$A3:M4]是个说明

采用打开方式就简单多了，先查找NN所在单元格，就可以确定数据区域， ...

我还要打扰一下，我将那个a3的3放入变量里，那个t就报错。
你帮我看下是为什么呀？
先谢过
   Dim nom As String
    nom = Worksheets("Feuil1").Range("A1")  
    Dim col As Integer
    Select Case nom
     Case "NN"
     col = 3
     Case "MM"
     col = 8
     End Select   
    t = "[Feuil1$" & [a" & col & "].Resize(2, lc).Address(0, 0) & "]"
   

zhaogang1960

xuersweety 发表于 2012-1-10 23:09
我还要打扰一下，我将那个a3的3放入变量里，那个t就报错。
你帮我看下是为什么呀？
先谢过

方括号不能使用变量，可以用Cells或者range
"[Feuil1$" & Range("a" & col).Resize(2, lc).Address(0, 0) & "]"

xuersweety

zhaogang1960 发表于 2012-1-10 23:13
方括号不能使用变量，可以用Cells或者range
"[Feuil1$" & Range("a" & col).Resize(2, lc).Address(0, 0 ...

太感谢啦  我终于得救了 :)

xuersweety

zhaogang1960 发表于 2012-1-10 23:13
方括号不能使用变量，可以用Cells或者range
"[Feuil1$" & Range("a" & col).Resize(2, lc).Address(0, 0 ...

我还想再问一下，那个s = ""的意义是什么呀？

zhaogang1960

xuersweety 发表于 2012-1-10 23:36
我还想再问一下，那个s = ""的意义是什么呀？

清空上个循环s中留下的字符串]
你可以测试一下:
Msgbox s

xuersweety

zhaogang1960 发表于 2012-1-10 23:38
清空上个循环s中留下的字符串]
你可以测试一下:
Msgbox s

不好意思，我又有了一个新问题，
请问我的excel 52560条数据我用for循环一次读取，但是超出了excel vba 的能力范围，这个有没有办法解决呀？

zhaogang1960

xuersweety 发表于 2012-1-11 00:02
不好意思，我又有了一个新问题，
请问我的excel 52560条数据我用for循环一次读取，但是超出了excel vba  ...

excel2003最大行号是65536行，不会超出excel vba 的能力范围