[已解决]在一定规律下，如何赋值。

跑跑2014

详细情况在工作薄中说明，希望高 手可以明白我的想法，看用什么办法得出我想要的结果，多谢了。

最佳答案

月排行榜 / 总排行榜

冥王

2014-4-17 00:10

1. Sub demo()
   
2. With ThisWorkbook.Sheets("4表")
   
3.    For i = 5 To .Range("e65536").End(xlUp).Row
   
4.       If .Cells(i, 5).Value Like "*汇总" Then
   
5.          .Cells(i, 6).Value = "应收金额：" & .Cells(i, "k").Value & "元"
   
6.          .Cells(i, 6).Font.Color = vbRed
   
7.       End If
   
8.    Next
   
9. End With
   
10. End Sub

复制代码

跳转到最佳答案楼层

冥王

1. Sub demo()
   
2. With ThisWorkbook.Sheets("4表")
   
3.    For i = 5 To .Range("e65536").End(xlUp).Row
   
4.       If .Cells(i, 5).Value Like "*汇总" Then
   
5.          .Cells(i, 6).Value = "应收金额：" & .Cells(i, "k").Value & "元"
   
6.          .Cells(i, 6).Font.Color = vbRed
   
7.       End If
   
8.    Next
   
9. End With
   
10. End Sub

复制代码

跑跑2014

冥王 发表于 2014-4-17 00:10

非常感谢，是我想要的效果。还能再加一个条件吗，把E列带汇总和那个空的最后三个字符去掉呢。