PKKO

回復 1# lionliu

看不懂您的需求,以下程式碼為單純判斷a欄位是否有底線,並且不為空白,將結果輸出到d欄位

1. Sub TEST()
   
2. For i = 1 To Range("a" & Rows.Count).End(xlUp).Row
   
3.     If Cells(i, 1) <> "" Then
   
4.         If Cells(i, 1).Font.Under = xlUnderStyleSingle Then
   
5.             Cells(i, 4) = "有底線"
   
6.         Else
   
7.             Cells(i, 4) = "無底線"
   
8.         End If
   
9.     End If
   
10. Next
    
11. End Sub

複製代碼