- 帖子
- 3
- 主題
- 1
- 精華
- 0
- 積分
- 5
- 點名
- 0
- 作業系統
- win7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2015-10-10
- 最後登錄
- 2015-12-1
|
請教一下各位前輩，如以下程式，該如何完善它，對vba實在是一知半解，網上搜尋了很多例子，但實在是.....有心無力，煩請各位前輩抽空解答，謝謝- Sub test()
- '1 選擇F欄第二列儲存格(迴圈)
- For i = 2 To 300
- Cells(i, "f").Select
- If Cells(i, "f") <> "" Then
- '2 取得F欄儲存格的值(aaa)
- Dim var As String<<<<<<<<<這邊其實是我自己猜的
- var = Cells(i, "f")<<<<<<<<<這邊其實是我自己猜的
- '3 選擇第i列,剪下第i列
- Rows(i).Select
- Selection.Cut
- '4 選擇b工作表，移到F欄第二列
- Sheets("b").Select
- Range("F2").Select
- '5 搜尋b工作表F欄儲存格值(aaa) , 找出同樣的值，如果有同樣的值，就移到同值的最下一列，再下移一列，如果沒有同值，就移到f欄的最後一列
- 這一段就完全不知道如何下手
-
- '6 貼上整列
- Selection.Insert Shift:=xlDown
- '7選擇A工作表
- Sheets("A").Select
- Else
- Exit For
- End If
- Next i
- End Sub
|
|
發表於 2015-10-10 18:22
| 
