使用Excel VBA在列與列之間跳轉的行和列之間使用單元格引用

Question

以前我曾嘗試使用行/列作爲行引用行。他們並不完美，但他們工作。但是，當它跳躍時我遇到了麻煩，我真的需要幫助。

我的代碼不會返回一個錯誤，但只有1個細胞具有值「=」。

Answer 1

這是否對你的工作：在用戶需要參照細胞，而不僅僅是單元格值係數增加

*。

Sub Row2ColumnReferance() 

Dim rRangeCopy As Range, CRangePaste As Range 
Dim jump As Integer 

'get input 
Set rRangeCopy = Application.InputBox("Select Copy Range", "Transform", Type:=8) 
Set CRangePaste = Application.InputBox("Select Destination Range", "Transform", Type:=8) 
jump = Application.InputBox("Enter") 

Dim cel As Range, intCnt As Integer 

'place new cells 
intCnt = 1 
For Each cel In rRangeCopy 
    CRangePaste.Cells(intCnt, 1).Formula = "=" & cel.Address(False, False) 
    intCnt = intCnt + 1 
Next 

Dim intRows As Integer 

'insert space 
intCnt = CRangePaste.Rows.Count 
For intRows = intCnt To 2 Step -1 
    Range(CRangePaste.Cells(intRows, 1), CRangePaste.Cells(intRows + jump - 1, 1)).Insert shift:=xlDown 
Next 

End Sub