エクセルで指定数まで増えると隣のセルを参照したい

質問

いつもお世話になっております。
かなりエクセル関数には慣れているつもりですが、どうしても解決しなかったので質問させていただきます。
下の表を用意して、

　/　 A　 /　B（表１）
1 / たかし /　３
2 / ひろし /　４
3 / はなこ /　５

下の様に、
たかし１
たかし２
たかし３
ひろし１
ひろし２
・
・
・

と一定数まで増えると下のセルを参照して、「ひろし４」まで行ったら次は「はなこ１」から始まる、そんな動きをしたいのですが、どうすれば良いでしょうか。
いくつか別のセルを用意しても問題無いです。
自分なりに、=A1&B1にして「たかし３」と一致したら「ひろし」に変えようとしてみたり、
「たかし」「たかし」と繰り返して、別のセルで数をカウントして「３」に達したら「たかし」を「ひろし」に変えようとしてみたり、
試行錯誤してみましたが、どうしても循環関数になってしまいます。
どうすれば良いのでしょうか。

ちなみに、IF関数の参照を変数で変えるというのはできますでしょうか？

　/ C / D（表２）
1 / 10 / 15

セル番地A20に、「=IF(A19=10,1,A19+1)」としておいて「10」をC1から引っ張る変数にして、
10に達したらD1の15を参照する。とすれば最初の質問が解決できると踏んでいるのですが、できませんでした。
もっと簡単な関数などがあれば教えてほしいです。よろしくおねがいします。

回答No.3

mt2015 · ベストアンサー

作業列を使っていいんですよね？

添付の図では、C、D列を作業列として使用します。
C1には0、C2には=C1+B1　と入れてC2セルを下方向にコピー
D1に=MATCH(ROW()-1,C:C)　と入れて下方向にコピー

F1に↓を入れて下方向にコピー
=IF(ROW()>MAX(C:C),"",INDEX(A:A,D1,1)&(ROW()-INDEX(C:C,D1,1)))

こんな感じで如何でしょうか。

お礼

回答ありがとうございます。実際に数を増やしてみたり、「はなこ」の下に「たろう/ 3」と追加したりしたところ、望む動きをしてくれました！
とても嬉しいです！

ただ、どうしてこのような動きをしているのか、まだ理解できません。
分解してみたり、色々と頂いた関数をいじってみます！
本当に助かりました。

ちなみにですが、なぜこの関数が必要になったかと言いますと
求人広告の契約枠数と実際の掲載数を比べて見たかったからです。
「たかし」が3枠契約していて、
別の表から「たかし」が2件掲載中であることを「たかし１」「たかし２」と表示して分かるようにしているので、
契約枠　　掲載数
たかし１　たかし１
たかし２　たかし２
たかし３　（空欄）

と、このように比較して「あと1件空きがありますよ」と見えるようにしたかったのです。
本当にありがとうございました。

回答No.4

shintaro-2

＞10に達したらD1の15を参照する。とすれば最初の質問が解決できると踏んでいるのですが、できませんでした。

if文を駆使すれば、お望みの事は大体できます
現在記入されている、3,4,5という数字に対応させたものを作成することは可能です
例えば　ｃ４に
=IF(LEFT(C3,3)=LEFT(C2,3),IF(B$1>RIGHT(C3,1)*1,A1&RIGHT(C3,1)+1,A2&1),IF(B$2>RIGHT(C3,1)*1,A2&RIGHT(C3,1)+1,A3&1))

しかし、数字を1,1,1とかに変更してしまうと
＄つきの参照セルを手で修正しないと対応できません。

どうしても関数でやる場合は
数字のセルにそれぞれの名前を付け、
一つ上のセルと同じ名前が使えるのなら、一つ上のセルから得た名前を使って
indirectを使い
違う名前にする必要がある場合は
offsetの基準に名前を付けたセルが使えれば、何とかできるでしょう。

回答No.2

Prome_Lin

マクロで書くと、以下のようになるのですが、これだけのことが、関数だけでできるのでしょうか？

一瞬、「=rept()」が使えないか、とも思ったのですが・・・

Option Explicit
Sub Test()
Dim n() As String
Dim c(), i, j, l, r As Integer
r = Range("A1").End(xlDown).Row
For i = 1 To r
ReDim Preserve n(i - 1)
ReDim Preserve c(i - 1)
n(i - 1) = Cells(i, 1).Value
c(i - 1) = Cells(i, 2).Value
Next i
l = 0
For i = 1 To r
For j = 1 To c(i - 1)
l = l + 1
Cells(l, 4).Value = n(i - 1)
Next j
Next i
End Sub

回答No.1

aokii

たかし/1
ひろし/1
はなこ/1
たかし/2
ひろし/2
はなこ/2
・
・
・
という表を作ってから、=A1&B1にしてはいかがでしょう。

お礼

早速の回答ありがとうございます。
せっかくお答えいただいたのですが、そうではなくて
表を元に自動で表示させたいのです。
例えば今日は表のたかし/3が、来月はたかし/5となった場合に「たかし4」と「たかし5」が自動で表示（再計算）して表示したいのです。

いっそ手作業でやるしか無いのでしょうか・・・。