根据关键字拆分工作表为多个工作簿

ybbcee · 发表于 2010-11-12 16:18

收着备用，谢谢了，兄弟。

ybbcee · 发表于 2010-11-12 17:50

相当实用，谢谢了，兄弟

jiminyanyan · 发表于 2010-11-12 18:24

wz2 = InStr(1, vvv, "R")
wz3 = InStr(1, vvv, "C")
If wz2 > 0 And wz3 > 0 Then
hh = Val(Mid(vvv, wz2 + 1, wz3 - wz2 - 1)) '起始行
ll = Val(Mid(vvv, wz3 + 1, Len(vvv) - wz3)) '选择的关键字所在列
End If
If wz2 > 0 And wz3 = 0 Then
hh = Val(Mid(vvv, wz2 + 1, Len(vvv) - wz2))
ll = 0
End If
If wz2 = 0 And wz3 > 0 Then
hh = 0
ll = Val(Mid(vvv, wz3 + 1, Len(vvv) - wz3))

这几句能不能解释一下，是什么原理，看不明白。

jjw19790617 · 发表于 2010-11-14 20:26

大力支持一下，谢谢分享！！

yjlexcel · 发表于 2010-12-9 21:52

收藏备用，谢谢。

zhtz626 · 发表于 2010-12-12 11:22

支持一下了哈，谢谢了！！

aman1516 · 发表于 2010-12-17 20:59

非常非常非常的感谢

JLF2003 · 发表于 2010-12-17 21:10

分享无限好！谢谢楼主！！

我要注册 · 发表于 2010-12-28 15:46

非常好，谢谢！

liu985 · 发表于 2011-1-6 18:50

正需要这方面的资料，谢谢

		自动登录	找回密码
密码			免费注册

[分享] 根据关键字拆分工作表为多个工作簿