如何将用户窗体文本框内容写入指定非连续单元格的首个空单元格？

你需要修改代码，遍历指定的单元格序列，找到第一个空单元格后写入内容，具体代码如下：

Private Sub CommandButton1_Click()
    ' 定义需要检查的目标单元格地址数组
    Dim targetCells As Variant
    targetCells = Array("C44", "C47", "C50", "C53", "C56")
    
    Dim cellAddr As Variant
    Dim content As String
    
    ' 拼接要写入的内容，保留你原有的格式
    content = Date & ", " & "št. sarže: " & ActiveCell.Value & vbNewLine & TextBox1.Value
    
    ' 遍历每个目标单元格
    For Each cellAddr In targetCells
        ' 检查单元格是否为空（Trim是为了排除仅含空格的情况）
        If Trim(Range(cellAddr).Value) = "" Then
            Range(cellAddr).Value = content
            Exit For ' 找到第一个空单元格后退出循环，不再检查后续单元格
        End If
    Next cellAddr
    
    Unload UserForm10
End Sub

关键说明： #

• 目标单元格数组：把需要检查的单元格地址集中存到数组里，方便统一遍历，后续如果要调整单元格序列，直接修改数组即可
• 空单元格判断：用Trim(Range(cellAddr).Value) = ""可以同时处理单元格完全为空和仅包含空格的情况，比单纯用IsEmpty更严谨
• 循环退出：找到第一个空单元格写入内容后，立即用Exit For终止循环，避免继续检查后面的单元格，保证只写入第一个空位置

内容的提问来源于stack exchange，提问作者Simon