- 帖子
- 75
- 主題
- 8
- 精華
- 0
- 積分
- 109
- 點名
- 0
- 作業系統
- windows XP
- 軟體版本
- office 2010
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 高雄
- 註冊時間
- 2015-4-19
- 最後登錄
- 2025-5-7
|
回復 1# show5217
如何設定按鈕插入如圖排序.zip (168.5 KB)
Sub test_20190914()
'確認 顯示結果 的最後一欄位置
ROW1 = Sheets("顯示結果").Cells(Rows.Count, "A").End(3).Row
'如果最後一欄 > 1表示有資料
If ROW1 > 1 Then
'將資料清除
Sheets("顯示結果").Range("A2:A" & ROW1).Clear
End If
'顯示結果 由第2列開始===================
k = 2
'判斷A欄的最後一個位置
ROW2 = Cells(Rows.Count, "A").End(3).Row
'列的迴圈==========
For i = 1 To ROW2
'欄的迴圈==========
For j = 1 To 2
'將欄位的值 給 顯示結果 的欄位
Sheets("顯示結果").Cells(k, "A").Value = Cells(i, j).Value
'往下加一欄
k = k + 1
Next
Next
End Sub |
|