[已解决]清除表格数字

ymq123 · 发表于 2014-9-14 18:36

请编写代码：
工作表1横排有11个表格，纵排有3个表格，请编写代码，把22行都有数字的表格内容全部清除，保留内容没有22行的表格（清除后的表格如工作表2）
谢谢！

最佳答案

qh8600

2014-9-14 22:15

Private Sub 清除_Click()
Dim Rng As Range, i As Long, j As Long
For i = 1 To 3
For j = 1 To 11
Set Rng = Sheets("1").Range(Cells(23 * i - 22, 12 * j - 11), Cells(23 * i, 12 * j))
If Application.CountA(Application.Intersect(Rng, Rows(23 * i - 1))) Then
Rng.ClearContents
End If
Next
Next
End Sub

复制代码

清除表格数字.rar (59.7 KB, 下载次数: 1)

su45 · 发表于 2014-9-14 18:56

22行都有数据的列没有呀！

ymq123 · 发表于 2014-9-14 19:09

su45 发表于 2014-9-14 18:56
22行都有数据的列没有呀！

表格与表格之间都有一行和一列隔开。
谢谢！

su45 · 发表于 2014-9-14 19:49

理解不了，撤了

qh8600 · 发表于 2014-9-14 22:15

Private Sub 清除_Click()
Dim Rng As Range, i As Long, j As Long
For i = 1 To 3
For j = 1 To 11
Set Rng = Sheets("1").Range(Cells(23 * i - 22, 12 * j - 11), Cells(23 * i, 12 * j))
If Application.CountA(Application.Intersect(Rng, Rows(23 * i - 1))) Then
Rng.ClearContents
End If
Next
Next
End Sub

复制代码

清除表格数字.rar (59.7 KB, 下载次数: 1)

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