根据工作表2 删除工作表1的行数

hyjianjian · 发表于 2015-8-28 00:48

本帖最后由 hyjianjian 于 2015-8-30 20:52 编辑

各位：
      能否用VBA实现在Sheet1 A列只保留Sheet2 A列匹配的数字！  如果没有匹配的数字则  删除Sheet1 一整行的行数（Sheet1行数删除后，下行要上移不要出现空白行数）！  并将Sheet2 B列的数据写入 Sheet1  H列里如果Sheet2  B列有2个日期则  中间用个 “及”（冒号不用写入）字    8/7及8/9    Sheet2 C列如果是1  则  在日期后面写个 “追加” 8/9追加  （0 则  8/7即可）
      Sheet1 A列的规律是 -105       匹配的是    Sheet2 A列  S105 （S105D）也算匹配    只比其中的数字（数字规律是 3位数）
麻烦各位了！

               Sheet1 只保留 Sheet2 出现过的数值（Sheet1  A列与 Sheet2 A列对比有则保留  无则删除）
         如果保留  则 Sheet2 B列数据将写入到 Sheet1  H列里  2015/8/7 转换成 8/7 如果保留下来有2个时间的话 8/7及8/9
         Sheet2 C列  如果是 0 则 Sheet1  H列格式为 8/7
         Sheet2 C列  如果是 1 则 Sheet1  H列格式为 8/9追加
         Sheet2 C列  即有0 又有 1  则 Sheet1  H列格式为 8/7及8/9追加

         希望宏程序  能在Sheet2 里插入即可运行！
         Sheet3 为模拟 Sheet1 的结果！实际中不需要

wormtwo · 发表于 2015-8-28 05:03

没看懂你的sheet1表A列数据是怎么回事

hyjianjian · 发表于 2015-8-28 07:55

wormtwo 发表于 2015-8-28 05:03
没看懂你的sheet1表A列数据是怎么回事

sheet1 –123与 sheet2 S123(S123D)匹配的

wormtwo · 发表于 2015-8-28 08:15

你给的例子一个也没有匹配的呀？怎么给你写代码？

hyjianjian · 发表于 2015-8-28 10:33

wormtwo 发表于 2015-8-28 08:15
你给的例子一个也没有匹配的呀？怎么给你写代码？

只匹配3位数字，字符跟符号不理睬

hyjianjian · 发表于 2015-8-28 20:15

wormtwo 发表于 2015-8-28 08:15
你给的例子一个也没有匹配的呀？怎么给你写代码？

抱歉之前附件有问题！现已经更正！请帮助！

hyjianjian · 发表于 2015-8-29 00:22

邀请各位高手围观。。。。。

笑着...两年过去 · 发表于 2015-8-30 20:35

hyjianjian 发表于 2015-8-29 00:22
邀请各位高手围观。。。。。

看不懂呀

复制代码

hyjianjian · 发表于 2015-8-30 20:50

笑着...两年过去发表于 2015-8-30 20:35

附件更新带模拟结果

hlly888 · 发表于 2015-8-30 21:14

hyjianjian 发表于 2015-8-30 20:50
附件更新带模拟结果

按原附件做的，未完全理解。看看哪里不对，请指出。

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

[求助] 根据工作表2 删除 工作表1的行数

[求助] 根据工作表2 删除工作表1的行数