如何快速提取Excel非空單元格區(qū)域值
在使用Excel進(jìn)行數(shù)據(jù)處理時,經(jīng)常會遇到需要提取非空單元格區(qū)域的情況。本文將介紹一種快速提取Excel非空單元格區(qū)域值的方法。 步驟一:打開VBA編輯界面 首先,打開Microsoft Offi
在使用Excel進(jìn)行數(shù)據(jù)處理時,經(jīng)常會遇到需要提取非空單元格區(qū)域的情況。本文將介紹一種快速提取Excel非空單元格區(qū)域值的方法。
步驟一:打開VBA編輯界面
首先,打開Microsoft Office Excel 2007,并按下快捷鍵ALT F11打開VBA(宏)編輯界面。然后點擊菜單欄的【插入】下拉列表,選擇【模塊(M)】。
步驟二:插入代碼
在VBA編輯界面中,插入一個新的模塊。在代碼框中復(fù)制以下代碼:
Option Base 1
Sub 單元格區(qū)域除空格()
Dim my As Range, my1(), c As Range
Dim p As Long, i As Long
Set my Selection
p
i 1
ReDim my1(p, 1)
For Each c In my
If <> "" Then
my1(i, 1)
i i 1
End If
Next c
Set my (Prompt:"選擇要輸出的第一個單元格", Type:8)
False
If i 1 Then
my my1
Else
Range(my, (i - 2, 0)) my1
End If
True
MsgBox "完成。"
End Sub
步驟三:運行宏
回到Excel工作表窗口,先選中需要提取非空單元格的區(qū)域,然后運行【單元格區(qū)域除空格】宏。在Excel菜單欄中點擊【視圖】,選擇【宏】下拉列表中的【查看宏(V)】,打開宏對話框,并選擇【單元格區(qū)域除空格】宏名。
接著,會提示選擇要輸出的第一個單元格。選中一個單元格并確定后,將生成一列無空格的數(shù)據(jù)。
通過以上幾個簡單的步驟,你可以快速提取Excel非空單元格區(qū)域的值,方便進(jìn)行后續(xù)的數(shù)據(jù)處理和分析。