以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  如何避免EXCEL空的单元格不被赋值？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=66172)
--  作者：南望
--  发布时间：2015/3/31 16:01:00
--  如何避免EXCEL空的单元格不被赋值？

如何在下面这个语句中加上判断不处理空的单格元，否则所有空的单元格都被替换成“分号”了

If dic.ContainsKey(Sheet1(i, j).Text) Then
     Sheet1(i, j).value = Sheet1(i, j).Text & ";" & dic(Sheet1(i, j).Text)
 End If
--  作者：有点甜
--  发布时间：2015/3/31 16:02:00
--  

If Sheet1(i, j).Text > "" AndAlso dic.ContainsKey(Sheet1(i, j).Text) Then
     Sheet1(i, j).value = Sheet1(i, j).Text & ";" & dic(Sheet1(i, j).Text)
 End If
--  作者：南望
--  发布时间：2015/3/31 16:32:00
--  
问题解决，谢谢