Re: [算表] excel可以設定自動挑選資料並刪除儲存格?(VBA)
以下是 VBA 的程式, 用法請參閱精華區或之前的文章
Option Explicit
Sub marco1()
Dim i As Integer
Dim rowC As Integer
Dim data As String
Application.ScreenUpdating = False
rowC = Sheets(1).Range("A1").CurrentRegion.Rows.Count
data = Cells(rowC, 1).Value
For i = rowC - 1 To 1 Step -1 '處理資料
If (data = Cells(i, 1).Value) Then
Range((i + 1) & ":" & (i + 1)).EntireRow.Delete Shift:=xlUp
End If
data = Cells(i, 1).Value
Next i
Application.ScreenUpdating = True
MsgBox ("完成！")
End Sub
※ 引述《CayenneTurbo (Cayenne)》之銘言：
: 軟體:Excel
: 版本:2003
: 資料格式如下
: 交易日期 開盤價 最高價 最低價 收盤價 漲跌價 漲跌% *成交量
: 2007/7/1 32 32 32 32 32 0 3424
: 2007/7/1 31 31 31 31 31 0 342
: 2007/7/1 30 30 30 30 30 0 34
: 2007/7/1 30 29 28 28 28 10% 3
: 2007/7/1 30 30 30 30 30 0 0
: ........
: 請問一下，如果我的資料是類上表，一天有五筆資料，成交量最大的會是第一筆
: 我要如何讓EXCEL幫我把同一天的資料整理，自動把成交量最大的那筆留下，其他4筆刪除
: 那4筆是要連儲存格都刪掉，讓下面的資料補上來，讓整個EXCEL資料按日期排
: 未整理資料2000多筆
: 感謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.131.84.231
Office 近期熱門文章
PTT數位生活區 即時熱門文章
