- 帖子
- 215
- 主題
- 70
- 精華
- 0
- 積分
- 290
- 點名
- 0
- 作業系統
- window xp
- 軟體版本
- 2007
- 閱讀權限
- 20
- 性別
- 女
- 註冊時間
- 2012-6-27
- 最後登錄
- 2024-1-29
|
我在下列VBA內一直被A所困擾, 而且
a = Application.match(Sheets("201507").Range("A" & i), Sheets("data").Range("D:D"), 0) ->一直出現問題
Set rangeFilledWithTransposedData = Sheets("201507").Range("e3:e31") ->不知如何可以變成變數, 對應201507的ID.
Sub match()
Dim i As Integer
Dim a As Integer
Dim transposedVariant As Variant
Dim sourceRowRange As Range
Dim sourceRowRangeVariant As Variant
Dim finalrow As Integer
Sheets("201507").Activate
Sheets("201507").Range("e:e").Select
Selection.ClearContents
finalrow = Cells(Rows.Count, 1).End(xlUp).Row
For i = 3 To finalrow
a = Application.match(Sheets("201507").Range("A" & i), Sheets("data").Range("D:D"), 0)
Set sourceRowRange = Sheets("data").Range("H" & a & ":AL" & a)
sourceRowRangeVariant = sourceRowRange.Value
transposedVariant = Application.Transpose(sourceRowRangeVariant)
Dim rangeFilledWithTransposedData As Range
Set rangeFilledWithTransposedData = Sheets("201507").Range("e3:e31")
rangeFilledWithTransposedData.Value = transposedVariant
Next i
i = i + 1
End Sub
[/code] |
|
發表於 2015-8-9 22:56
| 
