Сделать ссылку ячейки между строкой и столбцами с переходом между столбцами с помощью Excel VBA

Question

Я попытался до этого сделать ссылку на столбцы/столбцы на строки. Они не идеальны, но они работают. Однако у меня возникают проблемы, когда он прыгает, и мне действительно нужна помощь.

Мой код не возвращает ошибку, но только одна ячейка имеет значение «=».

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