Note: The other languages of the website are Google-translated. Back to English

Excelでセル値に基づいて行を自動挿入するにはどうすればよいですか?

doc-insert-row-based-on-value-1
データの範囲があり、Excelの特定の値の上または下に空白行を自動挿入したいとします。たとえば、下のスクリーンショットに示すように、ゼロ値より下の行を自動挿入します。 Excelでは、このタスクを直接解決する方法はありませんが、Excelの特定の値に基づいて行を自動挿入するためのマクロコードを導入できます。
VBAのセル値に基づいて下に行を挿入します

Kutools forExcelでセル値に基づいて上に行を挿入します 良いアイデア3

VBAを実行してセル値に基づいて行を挿入するには、次の手順を実行してください。

1。 押す Altキー+ F11 同時にキー、および アプリケーション向け Microsoft Visual Basic ウィンドウが飛び出します。

2。 クリック インセット > モジュール、次にVBAコードの下をポップに貼り付けます モジュール 窓。

VBA:セルの値に基づいて下に行を挿入します。

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.Offset(1, 0).EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

3。 クリック F5 キーまたは ラン ボタンをクリックすると、ダイアログが表示され、ゼロを含む列を選択します。 スクリーンショットを参照してください:
doc-insert-row-based-on-value-2

4。 クリック OK。 次に、空白行がゼロ値の下に挿入されます。
doc-insert-row-based-on-value-3

先端:

1.他の値に基づいて行を挿入する場合は、変更できます 0 VBAで必要な任意の値に: Rng.Value = "0"の場合、.

2.ゼロまたは他の値を超える行を挿入する場合は、以下のvbaコードを使用できます。

VBA:ゼロ値より上の行を挿入します:

Sub BlankLine()
	'Updateby20150203
	Dim Rng As Range
	Dim WorkRng As Range
	On Error Resume Next
	xTitleId                   = "KutoolsforExcel"
	Set WorkRng                = Application.Selection
	Set WorkRng                = Application.InputBox("Range", xTitleId, WorkRng.Address, Type: = 8)
	Set WorkRng                = WorkRng.Columns(1)
	xLastRow                   = WorkRng.Rows.Count
	Application.ScreenUpdating = False
	For xRowIndex = xLastRow To 1 Step - 1
		Set Rng                   = WorkRng.Range("A" & xRowIndex)
		If Rng.Value = "0" Then
			Rng.EntireRow.Insert Shift: = xlDown
		End If
	Next
	Application.ScreenUpdating = True
End Sub

doc-insert-row-based-on-value-4


VBAに慣れていない場合は、試すことができます Kutools for Excel's 特定のセルを選択 ユーティリティをクリックし、その上に行を挿入します。

Kutools for Excel, 以上で 300 便利な機能は、あなたの仕事をより簡単にします。 

インストールした後 Kutools for Excel、以下のようにしてください:(今すぐExcel用のKutoolsを無料でダウンロードしてください!)

1.特定のセルを検索するリストを選択し、をクリックします クツール > 次の項目を選択します。: > 特定のセルを選択。 スクリーンショットを参照してください:
値9に基づくドキュメント挿入行

2.ポップダイアログで、チェックします 行全体 オプションをクリックしてから、 等しいです from 特定のタイプ リストを表示し、検索する値を右側のテキストボックスに入力します。 スクリーンショットを参照してください:
値6に基づくドキュメント挿入行

3。 クリック Ok、ダイアログが表示され、選択した行の数を通知します。閉じるだけです。

4.選択したXNUMXつの行にカーソルを置き、右クリックして選択します インセット コンテキストメニューから。 スクリーンショットを参照してください:
値7に基づくドキュメント挿入行

これで、特定の値に基づいて行が上に挿入されます。
値8に基づくドキュメント挿入行


関連記事:


最高のオフィス生産性ツール

Kutools for Excelはほとんどの問題を解決し、生産性を80%向上させます

  • 再利用: すばやく挿入 複雑な数式、チャート および以前に使用したものすべて。 セルを暗号化する パスワード付き。 メーリングリストを作成する そしてメールを送る...
  • スーパーフォーミュラバー (複数行のテキストと数式を簡単に編集できます); 読書レイアウト (多数のセルを簡単に読み取って編集する); フィルター範囲に貼り付け...
  • セル/行/列をマージする データを失うことなく; 分割セルコンテンツ; 重複する行/列を組み合わせる...重複セルを防止します。 範囲を比較する...
  • [複製]または[一意]を選択します 行; 空白行を選択 (すべてのセルは空です); スーパーファインドとファジーファインド 多くのワークブックで; ランダム選択...
  • 正確なコピー 数式参照を変更せずに複数のセル。 参照の自動作成 複数のシートに; 箇条書きを挿入、チェックボックスなど...
  • テキストを抽出、テキストの追加、位置による削除、 スペースを削除する; ページング小計の作成と印刷。 セルの内容とコメントを変換する...
  • スーパーフィルター (フィルタースキームを保存して他のシートに適用します); 高度な並べ替え 月/週/日、頻度など。 特殊フィルター 太字、斜体...
  • ワークブックとワークシートを組み合わせる; キー列に基づいてテーブルをマージします。 データを複数のシートに分割; xls、xlsx、PDFをバッチ変換...
  • 300 以上の強力な機能. Office / Excel 2007-2021 および 365 をサポートします。すべての言語をサポートします。 企業や組織に簡単に導入できます。 フル機能の 30 日間無料トライアル。 60日間の返金保証。
kteタブ201905

Officeタブは、タブ付きのインターフェイスをOfficeにもたらし、作​​業をはるかに簡単にします

  • Word、Excel、PowerPointでタブ付きの編集と読み取りを有効にする、パブリッシャー、アクセス、Visioおよびプロジェクト。
  • 新しいウィンドウではなく、同じウィンドウの新しいタブで複数のドキュメントを開いて作成します。
  • 生産性を 50% 向上させ、毎日何百回もマウス クリックを減らすことができます!
officetab下部
コメントを並べ替える
コメント (43)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
下のセルの下に特定のコンテンツを貼り付けたい。 どうやってするか? 空白行の代わりに、いくつかの列に値を挿入したいと思います。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、値に基づいて複数の行を挿入したい例:値1のセルの下に2つの空白行を挿入したい値2のセルの下に3行、値3のセルの下に4行などこれを手伝ってくれませんか?
このコメントは、サイトのモデレーターによって最小化されました
これに対する答えを得たことがありますか? 私は同じことをしようとしています。

取得した週数の休暇を持つ従業員のリストを用意します。 毎週行を挿入したい。 獲得した時間に応じて、1、2、または3行になります。 #s 1はすでに私のスプレッドシートにあります。
このコメントは、サイトのモデレーターによって最小化されました
あるスプレッドシートのセル値を使用してカウントに基づいて行を挿入し、別のスプレッドシートに行を挿入したいと思います。
このコメントは、サイトのモデレーターによって最小化されました
あなたのメッセージに感謝します。 しかし、あなたはあなたの質問をより詳細に説明することができますか? どの行を挿入しますか? 空欄? そして、シートのどこに挿入したいですか? できれば、スクリーンショットをください。 ありがとうございました。
このコメントは、サイトのモデレーターによって最小化されました
愛してる。 ありがとうございました。
このコメントは、サイトのモデレーターによって最小化されました
それはすごかった!!。 ありがとう。
このコメントは、サイトのモデレーターによって最小化されました
複数の行を挿入するにはどうすればよいですか?
このコメントは、サイトのモデレーターによって最小化されました
このVBAを試すことができます

サブBlankLine()
'Updateby20150203
範囲として暗くする
範囲として薄暗いWorkRng
薄暗いxInsertNumAsLong
'エラー時に次を再開
xTitleId = "Kutools for Excel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
WorkRngが何もない場合は、Subを終了します
xInsertNum = Application.InputBox( "挿入する空白行の数"、xTitleId、Type:= 1)
xInsertNum=Falseの場合
MsgBox "挿入する空白行の数"、vbInformation、xTitleId
サブを終了
終了する場合
WorkRng = WorkRng.Columns(1)に設定します
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow To 1Step-1の場合
Set Rng = WorkRng.Range( "A"&xRowIndex)
Rng.Value = "0"の場合、
Rng.Resize(xInsertNum).EntireRow.Insert Shift:= xlDown
終了する場合
次へ
Application.ScreenUpdating = True
End Subの
このコメントは、サイトのモデレーターによって最小化されました
下に空白行を挿入する場合は、これを試してください

サブBlankLine()
'Updateby20150203
範囲として暗くする
範囲として薄暗いWorkRng
薄暗いxInsertNumAsLong
'エラー時に次を再開
xTitleId = "Kutools for Excel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
WorkRngが何もない場合は、Subを終了します
xInsertNum = Application.InputBox( "挿入する空白行の数"、xTitleId、Type:= 1)
xInsertNum=Falseの場合
MsgBox "挿入する空白行の数"、vbInformation、xTitleId
サブを終了
終了する場合
WorkRng = WorkRng.Columns(1)に設定します
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow To 1Step-1の場合
Set Rng = WorkRng.Range( "A"&xRowIndex)
Rng.Value = "0"の場合、
Rng.Offset(1、0).Resize(xInsertNum).EntireRow.Insert Shift:= xlDown
終了する場合
次へ
Application.ScreenUpdating = True
End Subの

以下は、上に行を挿入するためのものです。
このコメントは、サイトのモデレーターによって最小化されました
こんにちはサニー、このマクロは私にとって完璧に機能します。 行数を30に変更し、0をテキスト「ClosingBalance」に変更する必要がありました。 しかし、ここで、このマクロによって挿入された30行の空白行に30行の高さのセルの選択をコピーして貼り付けたいと思います。 30個の空白行ごとに範囲をコピーして貼り付けるための新しいマクロ(またはこのマクロの修正)を提案できますか? コピーして貼り付ける範囲に「テンプレート」という名前を付けました。
このコメントは、サイトのモデレーターによって最小化されました
私はこの問題について大きな助けが必要です。 私には2つの列があり、1日にはデータ時間01/01/2016 05:00:00、日/月/年時/分/秒、2番目の列には時間に関連付けられたそれぞれのデータがあります。

私の問題は、日数のギャップがあるため、行間にデータ時間を追加したいということです。 1行目は01年01月2016日、2行目はたとえば10年01月2016日なので、9日あります。 そのコードは私には機能しません。

フィードバックをお待ちしております。 ありがとう
このコメントは、サイトのモデレーターによって最小化されました
このVBAを試すことができます

Sub InsertValueBetween()
'更新20130825
範囲として薄暗いWorkRng
範囲として暗くする
バリアントとしてDimoutArr
バリアントとしての薄暗い
Set dic = CreateObject( "Scripting.Dictionary")
'エラー時再開次
xTitleId = "KutoolsforExcel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
num1 = WorkRng.Range( "A1")。Value
num2 = WorkRng.Range( "A"&WorkRng.Rows.Count).Value
間隔=num2-num1
ReDim outArr(1To間隔+1、1 To 2)
WorkRngの各Rngについて
dic(Rng.Value)= Rng.Offset(0、1).Value
次へ
i=0の場合間隔へ
outArr(i + 1、1)= i + num1
If dic.Exists(i + num1)Then
outArr(i + 1、2)= dic(i + num1)

outArr(i + 1、2)= ""
終了する場合
次へ
WorkRng.Range( "A1")。Resize(UBound(outArr、1)、UBound(outArr、2))を使用
.Value = outArr
。選択する
最後に
End Subの


または、Kutools for Excelを使用している場合は、次の機能を試すことができます。
このコメントは、サイトのモデレーターによって最小化されました
どうもありがとうございました。両方を試しました。1行のデータがあるので500つ目ですが、500行すべてに対してそれを行い、何もしません。おそらく、使用する行に制限があると思います。たとえば、最初の5行だけを選択すると、欠落している行は作成されず、欠落しているデータの行が置き換えられます。

私が抱えているもうXNUMXつの問題は、時間データに日/月/年HH:MM:SSも含まれていることです。
このコメントは、サイトのモデレーターによって最小化されました
2から3まで、それは私が大丈夫にしたい欠測データを作成しますが、03年01月2016日の値は削除され、私も望まない何かが削除された時間データがあります
このコメントは、サイトのモデレーターによって最小化されました
申し訳ありませんが、VBAコードは役に立ちませんでした。日付と時刻の形式で機能する方法が見つかりません。 最終的に解決策を見つけたら、私に知らせてもらえますか? ありがとうございました。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、サニー、コードをこれに編集することに成功しました(num1行をA2に変更し、WorkRng.Range( "A2:A100000")を使用します。Resize(UBound(outArr、1)、UBound(outArr、2) )::


Sub InsertValueBetween()
'更新20130825
範囲として薄暗いWorkRng
範囲として暗くする
バリアントとしてDimoutArr
バリアントとしての薄暗い
Set dic = CreateObject( "Scripting.Dictionary")
'エラー時再開次
xTitleId = "KutoolsforExcel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
num1 = WorkRng.Range( "A2")。Value
num2 = WorkRng.Range( "A"&WorkRng.Rows.Count).Value
間隔=num2-num1
ReDim outArr(1To間隔+1、1 To 2)
WorkRngの各Rngについて
dic(Rng.Value)= Rng.Offset(0、1).Value
次へ
i=0の場合間隔へ
outArr(i + 1、1)= i + num1
If dic.Exists(i + num1)Then
outArr(i + 1、2)= dic(i + num1)

outArr(i + 1、2)= ""
終了する場合
次へ
WorkRng.Range( "A2:A100000")。Resize(UBound(outArr、1)、UBound(outArr、2))を使用
.Value = outArr
。選択する
最後に
End Subの



グラフを表示しますが、A100からA1までの時間が作成されないため、2%は機能しません。
このコメントは、サイトのモデレーターによって最小化されました
これが私の質問です。これは非常に難しい質問です。フィルタリングされた列の下に新しい行を追加し、最初のXNUMXつのセルだけを追加された新しい行にコピーし、ユーザーがヒットを停止するまでコピーを続けるvbaコードはありますか。フィルタリングされたセルを「入力」してフィルタリングを解除しますか?
このコメントは、サイトのモデレーターによって最小化されました
あなたの質問はやや難しく複雑です。あなたは私たちのフォーラムに質問を置くことができます、多分誰かがあなたに答えることができます。 https://www.extendoffice.com/forum.html
このコメントは、サイトのモデレーターによって最小化されました
こんにちは私は、セルにすでにデータがあるときに行を追加する必要があるという条件がある場合、行を追加する方法を尋ねたいと思います(これは、シートがたくさんあるExcelワークブック用です:)ありがとうございます!
このコメントは、サイトのモデレーターによって最小化されました
多分このvbaコードはあなたを助けることができます。 上記の行が空でない場合は、行が追加されます

サブhelping()
薄暗いカウント
count = ActiveSheet.UsedRange.Rows.count To 1Step-1の場合
Information.IsEmpty(Cells(count、1))= False Then Rows(count + 1).Insertの場合
次のカウント
End Subの
このコメントは、サイトのモデレーターによって最小化されました
こんにちは私はこのコードを使用して、セルの最初の4桁が変更されたときに行を入力しようとしています(それが可能であれば)

例えば、
2222A
2222B
2223K


2222番目の数字は3ではなく3であるため、行は2Bの後に挿入されます。

みんなありがとう!
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ありがとうございます。ただし、ゼロ以外の値の下に単一のセルを挿入する必要がある別のシナリオがあります。 提案に感謝します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、ジーナ、私は空白ではないセルの上に空白の行を挿入するコードを見つけました。おそらく誰かがあなたのニーズに合わせてそれを調整することができます。

Sub Insert_Rows()
Dim LR As Long、r As Long

Application.ScreenUpdating = False
LR = Range( "A"&Rows.Count).End(xlUp).Row
r=LRの場合1ステップ-1
Len(Range( "A"&r).Value)>0の場合Then
Rows(r).Insert
終了する場合
次のr
Application.ScreenUpdating = True
End Subの

から来る https://www.mrexcel.com/forum/excel-questions/548675-adding-blank-line-above-row-non-blank-cell.html
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、これはとても役に立ちます。 以下に26行追加し、さらに値を追加したい場合はどうなりますか。 たとえば、値04/2019/03の後に04行を追加し、次に2019/XNUMX/XNUMXの後にXNUMX行を追加すると、リストが続きます。 VBAに追加し続けるにはどうすればよいですか? 申し訳ありませんが、まだ初心者です。 前もって感謝します。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Safa、Kutoolsの空白の行/列の挿入ユーティリティを試すことができます。
このコメントは、サイトのモデレーターによって最小化されました
サブBlankLine()
'Updateby20150203
範囲として暗くする
範囲として薄暗いWorkRng
エラーで次の再開
xTitleId = "KutoolsforExcel"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
WorkRng = WorkRng.Columns(1)に設定します
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow To1Step-1の場合
Set Rng = WorkRng.Range( "A"&xRowIndex)
Rng.Value = "0"の場合、
Rng.EntireRow.Insert Shift:= xlDown
終了する場合
次へ
Application.ScreenUpdating = True
End Subの


セルに何かを入れるたびに、またより多くの変数を使用して、これを機能させる必要があります。 つまり、セルに2を入れると、2行だけでなく1行を挿入する必要があります。
このコメントは、サイトのモデレーターによって最小化されました
数量列に基づいて行を追加するマクロが必要です。数量が1より大きい場合、行数-1が挿入されます。 数量が5の場合、その下に4行を挿入し、データを入力して、呼び出された数量を各行の5から1に変更します。 すべての数量1をスキップします。
このコメントは、サイトのモデレーターによって最小化されました
セルの値に基づいて特定の行数を追加するコードを教えてください。 たとえば、セルに数字18が含まれている場合、必要な場所に自動的に18行が追加され、テーブル/セルの残りの部分が下にシフトする必要があります。
このコメントは、サイトのモデレーターによって最小化されました
これに感謝します。本当に時間の節約になります。 新しい行にテキストを挿入できるコードを追加することは可能でしょうか。 たとえば、ターゲット値'x'に基づいて新しい行を挿入している場合、ターゲット値'x'の下のセルにテキスト値'y'を追加します。 これは可能ですか?
このコメントは、サイトのモデレーターによって最小化されました
こんにちは。 マクロは私のために機能しますが、入力ボックスがまったく表示されないように、範囲/パラメーターを常に列Jに設定する方法はありますか? 入力ボックスが表示されるステップをスキップしてほしい。 また、このマクロの直前で、前のマクロの最後の行がRange( "J:J")であることを確認しました。これを選択して、J列全体がすでに選択されていることを確認します。
これは私が今まで使ってきたものです。

範囲として暗くする
範囲として薄暗いWorkRng
エラーで次の再開
xTitleId="[OK]をクリックして続行します"
WorkRng=Application.Selectionを設定します
WorkRng = Application.InputBox( "Range"、xTitleId、WorkRng.Address、Type:= 8)を設定します
WorkRng = WorkRng.Columns(1)に設定します
SendKeys "〜"
xLastRow = WorkRng.Rows.Count
Application.ScreenUpdating = False
xRowIndex = xLastRow To 1Step-1の場合
Set Rng = WorkRng.Range( "A"&xRowIndex)
Rng.Value = "New GMS Line"の場合、
Rng.EntireRow.Insert Shift:= xlDown
終了する場合
次へ


いくつかの手順の間にSendKeys"〜"コマンドを使用して実験し、入力ボックスが表示されたときに自動的にEnterキーを押すようにしましたが、それも機能しませんでした。 マクロのどこでSendKeysコマンドを使用するのか、または入力ボックスでも機能するのかどうかはわかりませんでした。
このコメントは、サイトのモデレーターによって最小化されました
meiがデータを持っているのを手伝ってください。私はXNUMXか月の時間データを持っています。つまり、エスケープ時間に応じて空の行を挿入する必要があります。
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、hr.babu08、返信が遅れてすみません。 空白行を挿入するか、欠落しているシーケンスデータにマークを付けたいと思います。その場合は、KutoolsforExcelの欠落しているシーケンス番号の検索機能を試すことができます。この機能に関するチュートリアルは次のとおりです。 https://www.extendoffice.com/product/kutools-for-excel/excel-find-missing-numbers-in-sequence.htmlIf 欠落しているシーケンスの空白行を挿入する他の方法が必要な場合は、次のWebサイトにアクセスしてください。https://www.extendoffice.com/documents/excel/3522-excel-find-missing-dates.html</div>;
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、
このマルコは着色された細胞に使用/変更できますか?
色付きの各シリーズの端から少なくとも10行上に挿入する必要があります。
THX!
このコメントは、サイトのモデレーターによって最小化されました
特定のセルの内容に値を含む特定の行を追加する必要がありますが、3800 行以上を手動で行わなくても追加する方法がわかりません。

例: A1 = ノード 1
行を挿入して、値 Scanner を入力する必要があります
別の行を入力し、値を入力してください プリンター
値が CD の別の行。
など
このコメントは、サイトのモデレーターによって最小化されました
こんにちは、Chris です。値が Node1 に等しい場合に、XNUMX つの行 (スキャナー、プリンター、CD) を自動的に挿入するのに役立つ VBA があります。
Sub BlankLine()
'ByExtendoffice
Dim Rng As Range

Dim WorkRng As Range

Dim xRngI As Range

On Error Resume Next

xTitleId = "KutoolsforExcel"

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox("Select a range", xTitleId, WorkRng.Address, Type:=8)

Set WorkRng = WorkRng.Columns(1)

xLastRow = WorkRng.Rows.Count

Application.ScreenUpdating = False

For xRowIndex = xLastRow To 1 Step -1

  Set Rng = WorkRng.Range("A" & xRowIndex)

  If Rng.Value = "Node1" Then

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).EntireRow.Insert Shift:=xlDown

    Rng.Offset(1, 0).Value = "Scanner"

    Rng.Offset(2, 0).Value = "Printer"

    Rng.Offset(3, 0).Value = "CD"

  End If

Next

Application.ScreenUpdating = True

End Sub

あなたのために働くかどうか私に知らせてください。
ここにはまだコメントが投稿されていません
もっと読む
あなたのコメントを残す
ゲストとして投稿
×
この投稿を評価:
0   文字
推奨される場所

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護