- Sub 字母填到F列()
- Dim arr, result
- Dim i As Long
- Dim j As Long
- arr = Range("a1").CurrentRegion
- ReDim result(1 To UBound(arr), 1 To 1)
- For i = 2 To UBound(arr)
- For j = 1 To UBound(arr, 2)
- If arr(i, j) <> "" Then
- result(i, 1) = arr(i, j)
- End If
- Next j
- Next i
- Range("f1").Resize(UBound(result), 1) = result
- Range("f1") = "合并"
- End Sub
复制代码
|