使用空单元

Question

所以我的问题是我在这里有这个代码：

Private Sub Validate_Input_Click()
  Dim temp As String
  For Row = 2 To 250
    temp = ""
    For col = 2 To 12
      If Cells(Row, col) <> "" Then
        If temp <> "" Then temp = temp & "_"
        temp = temp & Cells(Row, col)
      End If
    Next col
    Cells(Row, 1) = temp
  Next Row
End Sub

我从第2列到第12列的信息都很完美。但是现在我想弄清楚是否可以说，第2-6行正确输入第2-6行的所有信息，所有单元格都被填入，第7行丢失了一个或两个不填充的单元格out和8-12行正确输入，所有单元格都被填入，如何将其连接成串行2-6，因空白单元格跳过7，并继续连接8-12？

此外，并非所有2 - 250行都填写完毕，通常会大约60到75，具体取决于我当时对工作表的处理方式。只是想要额外的缓冲区以及为什么我试图找出一种方法来跳过空白单元格而不是连接具有空白单元格的特定行或行。

我一直在搞乱If Else的陈述，但却无法得到它。

任何帮助都会很棒！

Answer 1

我们在处理行之前测试任何空白：

Sub Validate_Input_Click()
  Dim temp As String
  For Row = 2 To 250
    If Application.WorksheetFunction.CountBlank(Range(Cells(Row, 2), Cells(Row, 12))) = 0 Then
        temp = ""
        For col = 2 To 12
          If Cells(Row, col) <> "" Then
            If temp <> "" Then temp = temp & "_"
            temp = temp & Cells(Row, col)
          End If
        Next col
        Cells(Row, 1) = temp
    End If
  Next Row
End Sub