复制符合条件单元格内容后粘贴到另一工作薄单元格

zhangzhang · 发表于 2016-1-6 11:44

请试用，根据具体情况，修改程序

cshzh · 发表于 2016-1-6 16:31

本帖最后由 cshzh 于 2016-1-6 16:55 编辑

zhangzhang 发表于 2016-1-6 11:44
请试用，根据具体情况，修改程序

恩，很好。非常感谢！能不能给我个联系方式啊，以后好请教你，我QQ33766999.最好是能将11.xls中其他工作表一起复制到新的工作薄中（11.xls中应该还有几个工作表），然后是能设定保护工作表，加密码。

cshzh · 发表于 2016-1-6 22:59

本帖最后由 cshzh 于 2016-1-6 23:09 编辑

上面的已经解决了。非常感谢！但是还是有点小问题
我把原始信息修改后（增加六3班但少于27人）执行程序出错：
   Else
      arr1 = Result.Rows("1:" & Rows.Count)
      MyWb.Sheets("考试信息").Range("C12").Resize(UBound(arr1)) = arr1

cshzh · 发表于 2016-1-7 09:18

本帖最后由 cshzh 于 2016-1-7 09:40 编辑

zhangzhang好，另外我想将原始信息表中m2:Z5的信息中对应班级的信息复制到相应班级的工作表中。谢谢！班级名称也可改成11、21的格式。

g4eep · 发表于 2018-7-28 14:16

xuexixuexi

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

[求助] 复制符合条件单元格内容后粘贴到另一工作薄单元格