返回列表下一主題上一主題發帖

[發問] 請教各位大哥關於vba

asd1251

小學生 Rank: 1

帖子: 3
主題: 1
精華: 0
積分: 5
點名: 0
作業系統: win7
軟體版本: office2010
閱讀權限: 10
性別: 男
註冊時間: 2015-10-10
最後登錄: 2015-12-1

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2015-10-10 18:22 | 只看該作者

[發問] 請教各位大哥關於vba

請教一下各位前輩，如以下程式，該如何完善它，對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

複製代碼

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2807
主題: 10
精華: 0
積分: 2863
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-5-5

2^#

發表於 2015-10-11 12:09 | 只看該作者

Sub AX1011()
Dim xR As Range, xE As Range, xF As Range
For Each xR In Range([A!F2], [A!F65536].End(xlUp))
　　If xR = "" Then GoTo 101
　　'↓取得Ｂ表最後一筆資料位置　
　　Set xE = [B!F65536].End(xlUp)
　　'↓尋找Ｂ表符合值最後一筆位置　
　　Set xF = [B!F:F].Find(xR, After:=xE(2), SearchDirection:=xlPrevious, Lookat:=xlWhole)
　　'↓若有找到符合值，下方插入一列，並將儲存格變數代換為xE　
　　If Not xF Is Nothing Then xF(2).EntireRow.Insert: Set xE = xF
　　'↓整列貼至xE的下一列　
　　xR.EntireRow.Copy xE(2).EntireRow
101: Next
End Sub

TOP

asd1251