Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 1433|回复: 6

[已解决]请老师编写代码

[复制链接]
发表于 2013-3-20 21:59 | 显示全部楼层 |阅读模式
请老师编写代码。谢谢
最佳答案
2013-3-20 22:31
  1. Sub 表2()
  2.     Dim lRow As Byte, lCol As Byte
  3.     Dim rg
  4.     For lRow = 2 To 15
  5.         Set rg = Range(Cells(lRow, "j"), Cells(lRow, "p")).SpecialCells(xlCellTypeBlanks)
  6.         rg(1) = rg(1).Column - 9
  7.     Next
  8. End Sub
复制代码

在空白单元格添加1个数字.rar

8.27 KB, 下载次数: 14

发表于 2013-3-20 22:31 | 显示全部楼层    本楼为最佳答案   
  1. Sub 表2()
  2.     Dim lRow As Byte, lCol As Byte
  3.     Dim rg
  4.     For lRow = 2 To 15
  5.         Set rg = Range(Cells(lRow, "j"), Cells(lRow, "p")).SpecialCells(xlCellTypeBlanks)
  6.         rg(1) = rg(1).Column - 9
  7.     Next
  8. End Sub
复制代码
回复

使用道具 举报

发表于 2013-3-20 22:32 | 显示全部楼层
表1的你就根据这个模式改吧。

写得不多,就没关刷屏这些了。
回复

使用道具 举报

 楼主| 发表于 2013-3-20 22:40 | 显示全部楼层
hwc2ycy 发表于 2013-3-20 22:31

老师你好:请你把二个表的代码同时编出来。谢谢
回复

使用道具 举报

发表于 2013-3-20 22:43 | 显示全部楼层
  1. Sub 表1()
  2.     Dim lRow As Byte, lCol As Byte
  3.     Dim rg
  4.     For lRow = 2 To 15
  5.         Set rg = Range(Cells(lRow, "a"), Cells(lRow, "g")).SpecialCells(xlCellTypeBlanks)
  6.         If rg.Count = 2 Then
  7.             rg(1) = rg(1).Column
  8.         End If
  9.     Next
  10. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
ymq123 + 3

查看全部评分

回复

使用道具 举报

发表于 2013-3-20 22:45 | 显示全部楼层
表1,表2的代码合到一块。
  1. Sub 表3()
  2.     Dim lRow As Byte, lCol As Byte
  3.     Dim rg
  4.     For lRow = 2 To 15
  5.         Set rg = Range(Cells(lRow, "j"), Cells(lRow, "p")).SpecialCells(xlCellTypeBlanks)
  6.         If rg.Count = 2 Then rg(1) = rg(1).Column - 9
  7.         Set rg = Range(Cells(lRow, "a"), Cells(lRow, "g")).SpecialCells(xlCellTypeBlanks)
  8.         If rg.Count = 2 Then rg(1) = rg(1).Column
  9.     Next
  10. End Sub
复制代码

评分

参与人数 1 +3 收起 理由
ymq123 + 3

查看全部评分

回复

使用道具 举报

发表于 2013-3-20 23:14 | 显示全部楼层
代码只是就这个表的形式,没有考虑当表格内的一行全填上数据的情况。
出现那种情况时是会报错的。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 23:48 , Processed in 0.620973 second(s), 15 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表