Re: [算表] 如何找尋預抓資料的數據並拋轉秀出
Sub 按鈕_Click()
MyValue = "MP5"
EndRow = 1
For i = 2 To Sheets("sheet1").Cells(65536, 2).End(xlUp).Row
If StrComp(Sheets("sheet1").Cells(i, 2), MyValue, 0) = 0 Then
'Sheets("sheet1").Cells(i, 8) = Sheets("sheet1").Cells(i, 2)
Sheets("sheet1").Cells(EndRow, 12) = Sheets("sheet1").Cells(i, 2).Value
Sheets("sheet1").Cells(EndRow, 13) = Sheets("sheet1").Cells(i, 4).Value
EndRow = EndRow + 1
End If
Next i
End Sub
這是我同學臨時幫我寫的VB程式語言,的確符合我的需求
但對程式語言不了解,可否有人可幫忙在語法下註解說明
煩請幫忙一下,謝謝
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 111.255.144.176
討論串 (同標題文章)
完整討論串 (本文為第 3 之 3 篇)：
Office 近期熱門文章
PTT數位生活區 即時熱門文章