[已解决]自动清除数据VBA

ranrise

自动消除数据.rar (6.27 KB, 下载次数: 14)

2013-7-11 10:02 上传

点击文件名下载附件

补充一下：每种情况的橙色区域是用鼠标选取的
要求如图及附件：
自己弄了好久，不太好用，求助大神帮忙提供一段代码！！

最佳答案

月排行榜 / 总排行榜

suye1010

2013-7-11 10:21

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Not Intersect(Target, Columns("C:C")) Is Nothing Then
   
3.     If Application.WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, 1).ClearContents
   
4. End If
   
5. End Sub

复制代码

使用工作表的Change事件代码即可.

跳转到最佳答案楼层

suye1010

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Not Intersect(Target, Columns("C:C")) Is Nothing Then
   
3.     If Application.WorksheetFunction.CountA(Target) = 0 Then Target.Offset(0, 1).ClearContents
   
4. End If
   
5. End Sub

复制代码

使用工作表的Change事件代码即可.

ranrise

suye1010 发表于 2013-7-11 10:21
使用工作表的Change事件代码即可.

谢谢，谢谢，很好用！

ranrise

suye1010 发表于 2013-7-11 10:21
使用工作表的Change事件代码即可.

再问下版主，如果我的要求改成这样，又该怎么写？
假如在C2处填上数据，D2处自动显示C2数据的第一个字符即LEFT(C2,1)，
然后将C2的数据往下填充，则对应D列同样显示对应C列的第一个字符。

PS:一个一个填的情况我会弄，但向下填充时，D列不会显示内容。
当然我说是用VBA,不是说用公式。
请版主再帮忙！谢谢

ranrise

回复版主的点评：实际应用中并非我在问题中描述的这样，我只是简化了，让大家好理解。总之每一个问题，都是来自于实际运用。

suye1010

ranrise 发表于 2013-7-11 15:36
再问下版主，如果我的要求改成这样，又该怎么写？
假如在C2处填上数据，D2处自动显示C2数据的第一个字符 ...

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. Dim rng As Range
   
3. If Not Intersect(Target, Columns("C:C")) Is Nothing Then
   
4.     For Each rng In Target
   
5.         If rng <> "" Then rng.Offset(0, 1) = Left(rng, 1)
   
6.     Next
   
7. End If
   
8. End Sub

复制代码

ranrise

suye1010 发表于 2013-7-11 23:50

回复，谢谢版主