[已解决]求助-如何编写

魅力蓝水晶 · 发表于 2012-9-11 12:45

各位老师，你好！请教个问题，还望指教给思路如何解决。如下：
本单元格（C3）中有一些文字，想让这些文字在D7中显示，但显示的前提是E3单元格内是Y而不是N，同时D7单元格内没有文字，如D7单元格内有文字或数字，将显示在D8单元格内，如D8单元格内有文字，依次类推（D9\D10\D11````)

最佳答案

月排行榜 / 总排行榜

suye1010

2012-9-11 20:00

本帖最后由 suye1010 于 2012-9-11 21:17 编辑

Sub aa()
Dim i As Integer
i=cells(65536,4).end(xlup).row+1
If Range("e3") = "Y" and application.worksheetfunction.countif(range("D7:D65536"),range("C3"))=0 Then
Cells(i, 4) = Range("c3")
End If
End Sub

复制代码

跳转到最佳答案楼层

sliang28 · 发表于 2012-9-11 13:35

这个意思吗？

Sub aa()
Dim i As Integer
For i = 7 To 10
If Cells(i, 4) = "" And Range("e3") = "Y" Then
Cells(i, 4) = Range("c3")
End If
Next
End Sub

复制代码

魅力蓝水晶 · 发表于 2012-9-11 18:16

谢谢老师的指点，按你说的先试试看，谢谢

魅力蓝水晶 · 发表于 2012-9-11 19:46

老师，可能是描述不清，这里面稍微有点差别是：
D7中如果没有数据，可在D7中显示，同时D8\D9\D10中不显示，但D7中有数据，在D8中显示，同时D9\D10不显示！请指教，谢谢！

suye1010 · 发表于 2012-9-11 20:00

这个最佳答案由 suye1010 给出，感谢 suye1010 的回答。

单击隐藏图章

本帖最后由 suye1010 于 2012-9-11 21:17 编辑

Sub aa()
Dim i As Integer
i=cells(65536,4).end(xlup).row+1
If Range("e3") = "Y" and application.worksheetfunction.countif(range("D7:D65536"),range("C3"))=0 Then
Cells(i, 4) = Range("c3")
End If
End Sub

复制代码

魅力蓝水晶 · 发表于 2012-9-11 20:32

非常感谢！带来帮助，我会好好学习，并帮助别人，谢谢！

魅力蓝水晶 · 发表于 2012-9-11 20:41

补充疑问，D7中已经出现C3的文字，如再次运行，D8中能否不出现C3的文字，让C3的文字只出现一次。如D7单元格被别的文字占用，C3中文字按程序在D8中显示，但再次运行，D9中同样也不出现C3中的内容。
谢谢！

魅力蓝水晶 · 发表于 2012-9-11 21:20

上一个帖子问题没有完全解决，还需求帮忙！如下：
Sub aa()
Dim i As Integer
i=cells(65536,4).end(xlup).row+1
If Range("e3") = "Y" Then
Cells(i, 4) = Range("c3")
End If
End Sub

本单元格（C3）中有一些文字，想让这些文字在D7中显示，但显示的前提是E3单元格内是Y而不是N，同时D7单元格内没有文字，如D7单元格内有文字或数字，将显示在D8单元格内，如D8单元格内有文字，依次类推（D9\D10\D11````)

补充：D7中如果没有数据，可在D7中显示，同时D8\D9\D10中不显示，但D7中有数据，在D8中显示，同时D9\D10不显示！请指教，谢谢！
补充：D7中已经出现C3的文字，如再次运行，D8中能否不出现C3的文字，让C3的文字只出现一次。如D7单元格被别的文字占用，C3中文字按程序在D8中显示，但再次运行，D9中同样也不出现C3中的内容。
谢谢！

wk0316 · 发表于 2012-9-12 08:34

Sub kdke()
If Range("e3") = "Y" And Range("d7") = "" Then
Range("d7") = Range("c3")
ElseIf Range("e3") = "Y" And Range("c7").End(xlToRight).Offset(0, 1) = "" Then
Range("c7").End(xlToRight).Offset(0, 1) = Range("c3")
End If
End Sub

复制代码

wk0316 · 发表于 2012-9-12 08:44

求助.rar (13.77 KB, 下载次数: 1)

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

[已解决]求助-如何编写

相关帖子

求助-如何编写