[繁]無職轉生第二季1	[繁]轉生貴族憑鑑定技	[繁]關於我轉生變成史
[簡]單人房、日照一般	[繁]海賊王航海王 11	[簡]假面騎士GOTCHARD

查看: 4753|回復: 1

[求助]EXCEL VBA 新手求助選取偶數列[複製鏈接]

特納圖

高級幼兒生(30/200)

Rank: 1

帖子: 68
積分: 62 點
潛水值: 3830 米

電梯直達

樓主

發表於 2016-10-15 11:07 PM|只看該作者|倒序瀏覽

分享使你變得更實在，可以使其他人感到快樂，分享是我們的動力。今天就來分享你的資訊、圖片或檔案吧。

本帖最後由特納圖於 2016-10-15 11:08 PM 編輯

想請問各位
我手邊有幾萬筆像這樣排序的資料

需求是雙數列的儲存格（可能一格或兩格）的資料需到單數列的尾巴且最後要把雙數列刪除
想請問該如何寫VBA程式
拜託各位

附件: 你需要登錄才可以下載或查看附件。沒有帳號？註冊

EXCEL

分享0收藏0支持0

若瀏覽伊莉的時侯發生問題或不正常情況，請使用Internet Explorer(I.E)。

使用道具檢舉

rr09192084

小學生(200/1000)

Rank: 2 Rank: 2

帖子: 541
積分: 212 點
潛水值: 13707 米

頭香

發表於 2016-10-19 11:04 PM|只看該作者

如果你覺得伊莉做得不錯，那就不要再猶疑了。今天就贊助和支持我們，立即行動！我們需要你的一點力量喔。

Sub test()
Dim i As Long, j As Integer, k As Integer
Dim lastRow As Long
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastRow Step 2
For j = 1 To 256
If Cells(i, j) <> "" Then
For k = 1 To 256
If Cells(i - 1, k) = "" Then
Cells(i - 1, k) = Cells(i, j)
Cells(i, j) = ""
Exit For
End If
Next k
Else
Exit For
End If
Next j
Next i
lastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Dim m As Integer
m = lastRow
While m > 1
If Cells(m, 1) = "" Then
Rows(m).Select
Selection.Delete Shift:=xlUp
m = m - 1
Else
m = m - 1
End If
Wend
End Sub

複製代碼

試試看這段VBA程式！...

瀏覽完整內容，請先註冊或登入會員

回覆中加入附件並不會使你增加積分，請使用主題方式發佈附件。

使用道具檢舉

返回列表

Archiver|手機版|廣告|聯絡我們|廣告查詢|廠商合作|伊莉

GMT+8, 2024-4-25 04:49 AM

重要聲明：本討論區是以即時上載留言的方式運作，對所有留言的真實性、完整性及立場等，不負任何法律責任。而一切留言之言論只代表留言者個人意見，並非本網站之立場，用戶不應信賴內容，並應自行判斷內容之真實性。於有關情形下，用戶應尋求專業意見(如涉及醫療、法律或投資等問題)。由於本討論區受到「即時上載留言」運作方式所規限，故不能完全監察所有留言，若讀者發現有留言出現問題，請聯絡我們。有權刪除任何留言及拒絕任何人士上載留言，同時亦有不刪除留言的權利。切勿上傳和撰寫侵犯版權(未經授權)、粗言穢語、誹謗、渲染色情暴力或人身攻擊的言論，敬請自律。本網站保留一切法律權利。

		自動登錄	找回密碼或安全提問
密碼			註冊