- 帖子
- 17
- 主題
- 6
- 精華
- 0
- 積分
- 28
- 點名
- 0
- 作業系統
- windows7
- 軟體版本
- office2010
- 閱讀權限
- 10
- 註冊時間
- 2015-12-11
- 最後登錄
- 2016-2-16
|
[發問] 請教一下有關尋找複製的方法請各位高手指導一下!... 謝謝
各位大大不好意思小的又有問題想請教一下!...
小的從樞紐分析表抓取資料後想將資料經由搜尋後複製到指定欄位
小的搜尋論壇發現都篩選功能比較多... 經由錄製巨集後更改但有些資料還是沒有辦法顯示!..
想請教各位大大錯誤的地方為何!.?
目前想要功能如下 :
值班測試檔.zip (86.02 KB)
小的有使用過簡易方式可以使用 , 但只要Weekly變更就必須變動請問是否有連續的語法呢?- Dim myRng1 As Range, myRang2 As Range
- Set myRng1 = Sheets("轉寫紀錄").Range("B3:B19")
- Set myRng2 = Sheets("圖表分析By總數").Range("B9")
- With myRng1
- Set myRng2 = myRng2.Resize(RowSize:=.Rows.Count, ColumnSize:=.Columns.Count)
- End With
- myRng2.Value = myRng1.Value
- Set myRng1 = Nothing
- Set myRng2 = Nothing
複製代碼 另有錄製巨集後編寫如下 : 但似乎語法錯誤導致複製範圍失敗想請各位大大有空稍微指導一下即可!... 小的會自己努力研究的~... 抱歉!. 謝謝~- Private Sub CommandButton2_Click()
- Dim i As Integer, k As Integer
- Dim ListRow As Range, myRange As Range
- Dim Week As Range
- With Sheets("圖表分析By總數")
- Set Week = Sheets("轉寫紀錄").Cells(1, 2)
- Set myRange = .Cells.Find(What:=Week, lookat:=xlWhole)
- k = myRange.Row
- For i = 9 To 25
- '.Cells(i, k).Value = Sheets("轉寫紀錄").Cells(i, k)
- Next
- With Sheets("轉寫紀錄")
-
- For i = [B65536].End(xlUp).Column To 1 Step -1
-
- If Sheets("轉寫紀錄").Cells(i, 1).Value <> 0 Then
- If Sheets("圖表分析By總數").Cells(9, k + 1).Value = "" Then
- Sheets("圖表分析By總數").Cells(9, k).Value = Sheets("轉寫紀錄").Cells(i, "B")
- 'Else
- 'Sheets("圖表分析By總數").Cells(9, k).Value = Sheets("圖表分析By總數表").Cells(9, k).Value + 1
- End If
- End If
- Next
- End With
- End With
- End Sub
複製代碼 |
|