小惡魔市集悅遊日本活動報導

請問如何刪除Excel儲存格中的多餘空行？

110分

個人積分：110分

文章編號：76961621

常用 => 尋找與選取 => 特殊目標 => 空格(K)

滑鼠右鍵 => 刪除

3100分

個人積分：3100分

文章編號：76962720

shupo wrote:
常用 => 尋找與選...(恕刪)

刪除刪除刪除

31分

個人積分：31分

文章編號：76964610

用VBA試試
Private Sub CommandButton1_Click()
Range("A2") = Replace(Range("A1"), vbLf, "")
End Sub

119分

個人積分：119分

文章編號：76964675

這是儲存格格式裡的自動換行
點進儲存格用Backspace就可刪掉多餘的行

1118分

個人積分：1118分

文章編號：76965078

複製到word
清除換行或取代

貼回excel

2598分

個人積分：2598分

文章編號：76966485

Sub test()

Dim temp, i As Integer, j As Integer, s As String

Range("b1:b3").Clear
For i = 1 To 3
temp = Split(Cells(i, 1), vbLf)
For j = 0 To UBound(temp)
If temp(j) <> "" Then Cells(i, 2) = Cells(i, 2) & temp(j) & vbLf
Next j
Cells(i, 2) = Left(Cells(i, 2), Len(Cells(i, 2)) - 1)
Next i

End Sub

3分

個人積分：3分

文章編號：76967251

erichuang801 wrote:
選我正解 :用 BIN(恕刪)

那請問這樣會把所有換行改成空白嗎？謝謝。

3分

個人積分：3分

文章編號：76967260

snare wrote:
Sub test()(恕刪)

謝謝~

3分

個人積分：3分

文章編號：76967269

陌生的路 wrote:
複製到word清除換(恕刪)

謝謝~

3分

個人積分：3分

文章編號：76967278

WJS_HVM wrote:
用VBA試試Private...(恕刪)

感謝~

1
2
3
4

小惡魔廣編特輯

隨身形象管理師 Panasonic 「LAMDASH PALM IN」電動刮鬍刀 ES-PV6A

Samsung Galaxy A55｜A35 5G高顏值輕旗艦、夜拍功能全面升級！

叛逆小鋼炮！YAMAHA Force 2.0日夜都有型！

關閉廣告

顯示廣告