作者cksmark129 (请多指教~)
看板Office
标题[问题] Excel VBA 判断储存格是否空白
时间Fri Sep 8 23:07:37 2017
(若是和其他不同软体互动之问题 请记得一并填写)
软体:Excel
版本:2010
想写一个巨集是判断某a储存格的相对位置（1，0）之b储存格内容是否空白
如果是，则b储存格相对位置（-1，3）输入"是空白"
如果不是，则继续找下一栏直到最後一个有字元的储存格《用录的，使用END+↓》，已此储存格相对位置（0，3）输入"非空白"
以下是我的巨集，不知道为什麽无论b储存格是否空白，If判断结果都是执行Else。
请先进们帮忙指点迷津
谢谢各位
*手机排版，伤眼请见谅
----
sub a()
sub a()
ActiveCell.Offset(1,0).Range("A1").Select
If Range("A1") = "" Then
ActiveCell.Offset(-1,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "是空白"
ActiveCell.Offset(1,0).Range("A1").Select
Else
Selection.End(xlDown).Select
ActiveCell.Offset(0,3).Range("A1").Select
ActiveCell.FormulaR1C1 = "非空白"
End of
End sub
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 110.28.76.101
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1504883260.A.5F2.html
1F：→ soyoso: if range("a1")改为if activecell或if selection 试试09/08 23:18
2F：→ soyoso: end of会错误讯息，应为end if09/08 23:18
谢谢您的协助，成功无误了，原来是Range的问题
谢谢您提供的程式码，简单易懂。受教了
※ 编辑: cksmark129 (111.184.97.121), 09/09/2017 18:54:05