在VBA（Visual Basic for Applications）中，你可以使用IsEmpty函数来判断一个单元格是否为空。如果单元格不为空，你可以将其值设置为1。以下是一个简单的示例代码，演示了如何实现这个功能：
vba
复制
Sub CheckCellIsEmpty()
' 指定要检查的单元格
Dim targetCell As Range
Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")
' 检查单元格是否为空
If Not IsEmpty(targetCell.Value) Then
' 如果不为空，则将其设置为1
targetCell.Value = 1
End If
End Sub
在这个示例中，代码会检查工作表"Sheet1"中的单元格A1。如果这个单元格不为空，那么它的值会被设置为1。你可以通过更改Set targetCell = ThisWorkbook.Sheets("Sheet1").Range("A1")这一行中的工作表和单元格引用来检查其他单元格。
注意：IsEmpty函数会检查单元格是否完全没有值，包括空字符串。如果你想要检查单元格是否只包含空格，你可能需要使用其他方法，比如Trim函数来去除字符串两端的空格，然后检查结果是否为空字符串。
