トッドは漫画本の在庫リストを設定しており、列Aの各セルに「バットマン（1940）0」というテキストを3回繰り返し、続いて「バットマン（1940）1」を3回繰り返し、「バットマン（1940）」というテキストを含めたいと考えています。 2 “

「バットマン（1940）700」まで3回繰り返されました。これは2,103の個別の行ですが、Toddは、セルをコピーまたは塗りつぶすときに、このようなパターンを繰り返す方法がわかりません。

このようなタスクに取り組むには、実際にはいくつかの方法があります。 1つの方法は、単一のシーケンスを作成してから、コピーして2回貼り付けることです。

一般的な考え方は次のとおりです。

。セルA1に、次のように入力します：Batman（1940）0。セルA1を選択します。

。フィルハンドルをセルA701までドラッグします。これにより、「バットマン（1940）0」から「バットマン（1940）700」までの完全なシーケンスが得られ、範囲内のセルが引き続き選択されます。

。 Ctrl + Cを押して、範囲をクリップボードにコピーします。

。範囲をセルA702に貼り付けてから、もう一度セルA1403に貼り付けます。

。列Aを並べ替えます。

このプロセス全体は非常に迅速に進みます。約45秒で完了しました。ただし、欠点があります。並べ替えた後、テキストの最後の番号に基づいてセルのシーケンスを番号順に取得できません。それを確認したい場合は、最初の漫画本（セルA1）を「バットマン（1940）000」として入力することをお勧めします。終了番号に3桁を使用すると、並べ替えは問題なく行われます。

フィルハンドルに依存する、使用できる別のアプローチもあります。次の一般的な手順に従ってください：

。セルA1に、次のように入力します：Batman（1940）0。セルA4に、次のように入力します。バットマン（1940）1。セルA1：A6を選択します。 （これは非常に重要です。）

。塗りつぶしハンドルをセルA2103までドラッグします。これにより、「Batman（1940）0」から「Batman（1940）700」までの完全なシーケンスが得られ、シーケンスの各項目の後に2つの空のセルが表示され、範囲内のセルが引き続き選択されます。

。 F5を押します。 Excelに[移動]ダイアログボックスが表示されます。

。 [特別]ボタンをクリックします。 Excelは、[特別に移動]ダイアログボックスを表示します。

（図1を参照）

。 [空白]ラジオボタンが選択されていることを確認します。

。 [OK]ボタンをクリックします。 Excelは、範囲内の空白のセルのみが選択されるように選択を変更します。

。数式バーに、次の数式を入力します：= A1。 Ctrl + Enterを押します。これにより、数式がすべての空白セルにコピーされます。

。セルA1：A2103を選択します。

。 Ctrl + Cを押して、範囲をクリップボードにコピーします。

。値を貼り付けるには、[形式を選択して貼り付け]を使用します。これにより、数式が値に変換されます。

3番目のアプローチ（私が非常に迅速に達成できると思うもの）は、最初から式を使用することです：

。セルA1に、次の数式を入力します：* = “Batman（1940）

“＆INT（（ROW（）-1）/ 3）*。セルA1：A2103を選択します。

。 Ctrl + Dを押します。セルA1の数式は、選択した範囲の残りの部分にコピーされます。

。 Ctrl + Cを押して、範囲をクリップボードにコピーします。

。値を貼り付けるには、[形式を選択して貼り付け]を使用します。 （これにより、数式が値に変換されます。）

このようなシーケンスを頻繁に作成する必要がある場合は、マクロベースのアプローチをお勧めします。以下は簡単で、目的のテキストシーケンスを列Aに配置します。

Sub ComicSequence()

Dim sTemp As String     Dim J As Integer     Dim K As Integer

sTemp = "Batman (1940) "

For J = 0 To 700         For K = 1 To 3             Cells(J * 3 + K, 1).Value = sTemp & J         Next K     Next J End Sub

セル値に別の序文を使用するには、sTemp文字列に割り当てる値を変更するだけです。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（9410）は、Microsoft Excel 2007、2010、2013、2016、2019、およびOffice365のExcelに適用されます。