选择所有非空白单元格和关联的行

Question

为此，我一直在寻找超过 3 小时的公式或 vba 解决方案，但由于某种原因找不到任何东西。

我需要一些东西来查看一列，找到所有非空白单元格，然后将它们输出到其他地方。 这是数据的一个小示例表：

这是我想要输出的内容：

我发现了许多解决方案，其中大多数是 =value 和 =match 的组合，但我得到的结果要么为零，要么结果在列中包含不应包含空白的空白。

Answer 1

试试这个宏

Sub findBlankCells()

Dim ws As Worksheet
Dim lastrow As Long
Dim i As Long
Dim j As Long
'change the sheet to whatever name sheet you have
ws = ThisWorkbook.Sheets("Sheet1")
'didn't chose A since it seems like you have more blank values there
lastrow = ws.Cells(ws.Rows.Count, "B").End(xlUp).Row
'j represents the row to copy to
j = 1
'loop through all the rows
For i = 1 To lastrow
'only copy to I and J column if both do not equal blank
If ws.Cells(i, "A") <> "" And ws.Cells(i, "B") <> "" Then
    ws.Cells(j, "I") = ws.Cells(i, "A")
    ws.Cells(j, "J") = ws.Cells(i, "B")
    'increase j if the statement is true to go on to the next row to copy to
    j = j + 1
End If
Next i
End Sub