Excel生成迭代单元格引用

有没有办法生成Excel单元格引用？我一直在手动迭代以下：Excel生成迭代单元格引用

=($B$12-C12)*$B$3*C3 
=($C$12-D12)*$C$3*D3 
=($D$12-E12)*$D$3*E3 
=($E$12-F12)*$E$3*F3 
=($F$12-G12)*F$3*G3 
=($G$12-H12)*$G$3*H3 
=($H$12-I12)*$H$3*I3 
=($I$12-J12)*$I$3*J3 
=($J$12-K12)*$J$3*K3 
=($K$12-L12)*$K$3*L3 
=($L$12-M12)*$L$3*M3 
=($M$12-N12)*$M$3*N3 
=($N$12-O12)*$N$3*O3 
=($O$12-P12)*$O$3*P3 
=($P$12-Q12)*$P$3*Q3 
=($Q$12-R12)*$Q$3*R3 
=($R$12-S12)*$R$3*S3 
=($S$12-T12)*$S$3*T3 
=($T$12-U12)*$T$3*U3 
=($U$12-V12)*$U$3*V3 
=($V$12-W12)*$V$3*W3 
=($W$12-X12)*$W$3*X3 
=($X$12-Y12)*$X$3*Y3 
=($Y$12-Z12)*$Y$3*Z3 
=($Z$12-AA12)*$Z$3*AA3 
.. 
.. 
.. 
.. 
.. 
..

来源

2015-07-19 Kelbe

我能想象不外乎打字说出来更无聊。尝试下面，我假设你想要代码打印到单元格？这有几个比你想要的更多，让我知道如果这是一个问题。此外，只需将countto变量更改为所需的迭代次数即可。希望能帮助到你。

Sub poorguy() 
Dim counter As Long 
Dim countto As Long 
Dim col1 As String 
Dim col2 As String 
Dim col3 As String 
Dim col4 As String 
Dim rngwrite As Range 

counter = 0 
countto = 100 

For i = 0 To countto 
    col1 = cells(12, 2).Offset(0, counter).Address 
    col2 = cells(12, 3).Offset(0, counter).Address 
    col3 = cells(3, 2).Offset(0, counter).Address 
    col4 = cells(3, 3).Offset(0, counter).Address 
    Set rngwrite = cells(1, 1).Offset(counter, 0) 
    rngwrite.Value = "=(" & col1 & "-" & col2 & ")*" & col3 & "*" & col4 
    counter = counter + 1 
Next 
Set rngwrite = Nothing 
End Sub

来源

2015-07-19 22:20:14 Tom37

too many $ s .... Your code output给出：=（$ B $ 12- $ C $ 12）* $ B $ 3 * $ C $ 3 Mine是：=（$ B $ 12-C12）* $ B $ 3 * C3 – Kelbe

使用行，以获得行号，然后采用偏置从参考点，以抵消相对行号列数。例如：

=(OFFSET(A1,0,ROW(B1))-OFFSET(A1,0,ROW(B1)+1))*OFFSET(A1,0,ROW(B1))*OFFSET(A1,0,ROW(B1)+1)

的假设是，你的数据在B1开始，C1

来源

2015-07-19 21:59:38

你是说假设我的数据是以A1和B1开始的？在这个等式中我没有看到C1 ...... – Kelbe

不，B1和C1，你在第1行输入公式。这部分是C1'OFFSET（A1,0，ROW（B1）+1）'Offset A1 by 0 rows and Row（B1）+1（2）columns –

Excel生成迭代单元格引用

回答

相关问题