ROW（）によるExcel VBAランク

Question

DenseRank行の位置またはrowIDに基づいて、Excel VBAでスタックされています。私は、列に基づいてランク付けするのではなく、行＃でランク付けし、列の "City"で値が変更されたときに基づいてランク付けを再開したいということを示すために、Sales列を追加しました。

#City# |#Sales# |#DESIREDOUTPUT# 
Chicago  1   1 
Chicago  5   2 
Chicago  10   3 
Chicago  7   4 
New York 3   1 
New York 5   2 
New York 2   3 

申し訳ありませんが、テーブルを正しくフォーマットすることができません。 C1における

Answer 1

式アプローチ

PUT：次いで

=IF(A2=A1;C1+1;1) 

とは

---

VBAアプローチダウンドラッグ

Sub main() 
    With Range("A2", Cells(Rows.Count, 1).End(xlUp)).Offset(, 2) 
     .Formula = "=if(RC[-2]=R[-1]C[-2],R[-1]C + 1,1)" 
     .Value = .Value 
    End With 
End Sub 

Answer 2

私はVBAが必要な理由については明らかではないんだけど、

with worksheets("sheet1") 
    with .range(.cells(2, "C"), .cells(.cells(.rows.count, "A").end(xlup).row, "C")) 
     .formula = "=countif(a$2:a2, a2)" 
     .value = .value 
    end with 
end with