検索
ホームページソフトウェアチュートリアルオフィスソフトウェアExcel シートを 1 シートあたり 300 行に分割するマクロ

Excelシートを300行ごとに1シートに分割するマクロです!

パブリックサブmySub()

Dim shS As Worksheet: Set shS = ActiveSheet 'ソース データ シート、現在のアクティブ シート

Dim rS&: rS = 1 'ソース データ テーブル、この行からデータの読み取りを開始します

Dim rC&: rC = 300 '毎回読み取られる行数

Dim rNew$: rNew = 1 '新しいテーブルを作成し、データをこの行に貼り付けます

Dim rZ&: rZ = shS.usedRange.Row shS.usedRange.Rows.Count - 1

Dim shNew As Worksheet、nm$、n%、r&

r = rS

r の間実行します

n = n 1

Set shNew = Worksheets.Add(after:=Sheets(Worksheets.Count))

nm = "テーブル" & rC & "_"" & n

ShNm(shNew, nm)を呼び出します

shS.Rows(r).Resize(rC).Copy shNew.Rows(rNew)

r = rC * n rS

###ループ###

メッセージボックス「ok」

エンドサブ

Public Sub ShNm(ワークシートとしての sh、バリアントとしての nm)

エラー時は次へ再開

100:

sh.Name = nm

If エラー番号

0 then

エラークリア

nm = Application.InputBox( __

" " " & nm & " " はすでに存在します! " & Chr(10) & Chr(10) & "新しいテーブル名を入力してください: ", __

"新しいテーブル名を入力してください", nm & "_new", __

タイプ:=2)

If nm = False then MsgBox "入力が正しくありません。プログラムを終了してください!": End

GoTo 100

終了の場合

エンドサブ

EXCEL でマクロ コマンドを使用してシーケンスを分割する方法 (たとえば、PL10 120 を

に分割する)

サブマクロ6()

'

' マクロ 6 マクロ

'

'

Selection.TextToColumns Destination:=Range("A1")、DataType:=xlDelimited、__

TextQualifier:=xlDoubleQuote、ConsecutiveDelimiter:=False、Tab:=False、__

セミコロン:=False、コンマ:=False、スペース:=False、その他:=True、その他の文字 __

:="*", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

列("A:A").選択

Selection.Replace What:="PL"、置換:=""、LookAt:=xlPart、__

SearchOrder:=xlByRows、MatchCase:=False、SearchFormat:=False、__

ReplaceFormat:=False

列("C:D").選択

Selection.Insert Shift:=xlToRight、CopyOrigin:=xlFormatFromLeftOrAbove

範囲("C1").選択

ActiveCell.FormulaR1C1 = "=MIN(RC[-2],)"

範囲("C1").選択

ActiveCell.FormulaR1C1 = "=MIN(RC[-2],RC[-1])"

範囲("D1").選択

ActiveCell.FormulaR1C1 = "=MAX(RC[-3],RC[-2])"

Range("C1:D1").Select

Selection.AutoFill Destination:=Range("C1:D1000")

Range("C:D").Select

列("A:B").選択

Range("B1").Activate

列("C:D").選択

選択.コピー

Selection.PasteSpecial Paste:=xlPasteValues、Operation:=xlNone、SkipBlanks __

:=False、転置:=False

列("A:B").選択

Range("B1").Activate

Application.CutCopyMode = False

Selection.Delete Shift:=xlToLeft

列("A:B").選択

Selection.Replace What:="0"、置換:=""、LookAt:=xlWhole、__

#SearchOrder:=xlByRows、MatchCase:=False、SearchFormat:=False、__

ReplaceFormat:=False

エンドサブ

注: 使用する場合は、最初に列 A を選択してからマクロを実行します。分割する列は列 A になければならず、BC の 2 つの列は空でなければ上書きされます (笑、時間が短いです) 、特にスマートではありません)、行数は 1000 行以下です。あはは、そうしないと少し遅くなるので、範囲は 1000 行に設定されています。鉄骨構造物も手掛けているんですか?あはは、それも

EXCEL でマクロを使用して、テーブル内の A とこれらの自動シンボルを次の列に分割する方法

明示的なオプション

サブテスト()

範囲としての寸法を調整

バリアントとしてのディム arr

Dim k As Integer

選択範囲内の各rngについて

rng.Value = Replace(rng.Value, ":", "/")

arr = Split(rng.Value, "/")

k = UBound(arr) 1

rng.Resize(1, k) = arr

arrを消去

次の候補

End Sub コードの貼り付け方法はご存知かと思いますので、詳細は省略します。下の画像を押して、私が書いたコードを実行してください:

###ステップ1###

###ステップ2###

Excel シートを 1 シートあたり 300 行に分割するマクロ

ステップ-3

Excel シートを 1 シートあたり 300 行に分割するマクロ

ステップ-4

Excel シートを 1 シートあたり 300 行に分割するマクロ

Excel テーブルを複数の Excel テーブルにすばやく分割し、元の数式を保持する方法

[開発ツール]-[Visual Basic] または Alt F11 ショートカット キーをクリックして、VBE 編集インターフェイスに入ります。

Excel シートを 1 シートあたり 300 行に分割するマクロ新しいモジュールの挿入を選択してください

次のコードをモジュールに貼り付けます:

サブCFGZB()

myRange をバリアントとして暗くする

myArray を暗くする

タイトルを範囲として暗くする

タイトルを文字列として暗くする

Dim columnNum As Integer

myRange = Application.InputBox(prompt:="タイトル行を選択してください:", Type:=8)

myArray = WorksheetFunction.Transpose(myRange)

Set titleRange = Application.InputBox(prompt:="分割ヘッダーを選択してください。最初の行でセルである必要があります。例: "Name"", Type:=8)

title = titleRange.Value

以上がExcel シートを 1 シートあたり 300 行に分割するマクロの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。

声明
この記事はExcel办公网で複製されています。侵害がある場合は、admin@php.cn までご連絡ください。
ハッカーがそれを使用し続けるので、Microsoft365はActiveXをオフにしますハッカーがそれを使用し続けるので、Microsoft365はActiveXをオフにしますApr 12, 2025 am 06:01 AM

Microsoft 365は、オフィススイートの長年のセキュリティの脆弱性であるActiveXを最終的に段階的に廃止しています。 これは、Office 2024での同様の動きに続きます。今月から、Microsoft 365のWord、Excel、PowerPoint、およびVisioのWindowsバージョンは

Excel'の集計関数を使用して計算を改善する方法Excel'の集計関数を使用して計算を改善する方法Apr 12, 2025 am 12:54 AM

Quickリンク集約構文をリンクします

ExcelでPivotby関数を使用する方法ExcelでPivotby関数を使用する方法Apr 11, 2025 am 12:56 AM

Pivotby構文をクイックリンクします

Excelでこぼれた配列をフォーマットする方法Excelでこぼれた配列をフォーマットする方法Apr 10, 2025 pm 12:01 PM

フォーミュラ条件付きフォーマットを使用して、Excelのオーバーフローアレイを処理する Excelでのオーバーフローアレイの直接フォーマットは、特にデータの形状やサイズが変化する場合に問題を引き起こす可能性があります。フォーミュラベースの条件付き書式設定ルールにより、データパラメーターが変更されたときに自動フォーマットが可能になります。列参照の前にドル記号($)を追加すると、データ内のすべての行にルールを適用できます。 Excelでは、セルの値または背景に直接フォーマットを適用して、スプレッドシートを読みやすくすることができます。ただし、Excel式が値のセット(Overflow Arraysと呼ばれる)を返すと、直接フォーマットを適用すると、データのサイズまたは形状が変更された場合に問題が発生します。 ピボトビーフォーミュラのオーバーフロー結果を備えたこのスプレッドシートがあるとします。

ハッシュサインがExcel式で何をするかを知る必要がありますハッシュサインがExcel式で何をするかを知る必要がありますApr 08, 2025 am 12:55 AM

Excel Overflow Range Operator(#)により、オーバーフロー範囲のサイズの変化に対応するために、式を自動的に調整できます。この機能は、WindowsまたはMac用のMicrosoft 365 Excelでのみ使用できます。 一意、countif、sortbyなどの一般的な関数をオーバーフロー範囲演算子と組み合わせて使用​​して、動的なソート可能なリストを生成できます。 Excelフォーミュラのポンドサイン(#)は、オーバーフロー範囲演算子とも呼ばれます。これは、あらゆる結果をオーバーフロー範囲で検討するようプログラムに指示します。したがって、オーバーフロー範囲が増加または減少したとしても、#を含む式はこの変更を自動的に反映します。 MicrosoftExcelの一意の値をリストしてソートする方法

Excelでタイムラインフィルターを作成する方法Excelでタイムラインフィルターを作成する方法Apr 03, 2025 am 03:51 AM

Excelでは、タイムラインフィルターを使用すると、期間ごとにデータをより効率的に表示できます。これは、フィルターボタンを使用するよりも便利です。タイムラインは、単一の日付、月、四半期、または年のデータをすばやく表示できる動的フィルタリングオプションです。 ステップ1:データをピボットテーブルに変換します まず、元のExcelデータをピボットテーブルに変換します。データテーブルのセル(フォーマットされているかどうか)を選択し、リボンの挿入タブで[ピボット可能]をクリックします。 関連:Microsoft Excelでピボットテーブルを作成する方法 ピボットテーブルに怖がらないでください!数分で習得できる基本的なスキルを教えます。 関連記事 ダイアログボックスで、データ範囲全体が選択されていることを確認してください(

ExcelでGroupBy関数を使用する方法ExcelでGroupBy関数を使用する方法Apr 02, 2025 am 03:51 AM

Excelのグループ機能:強力なデータグループ化および集約ツール ExcelのGroupBy関数を使用すると、データテーブル内の特定のフィールドに基づいてデータをグループ化および集約できます。また、特定のニーズに合わせて出力をカスタマイズできるように、データを並べ替えてフィルタリングできるパラメーターも提供します。 GroupBy Function構文 GroupBy関数には8つのパラメーターが含まれています。 = groupby(a、b、c、d、e、f、g、h) パラメーターAからCが必要です。 A(行フィールド):データがグループ化されている値またはカテゴリを含む範囲(1列または複数の列)。 B(値):集約されたデータ(1つの列または複数の列)を含む値の範囲。

Excelで列を隠して非表示にしないでください。代わりにグループを使用しますExcelで列を隠して非表示にしないでください。代わりにグループを使用しますApr 01, 2025 am 12:38 AM

Excel効率的なグループ化:隠された列に別れを告げ、柔軟なデータ管理を受け入れましょう! 非表示の列は不要なデータを一時的に削除できますが、大きなデータセットを扱うか、柔軟性を追求する場合、グループ化列がより良い選択です。この記事では、データ管理の効率を改善するのに役立つExcelカラムグループ化の利点と操作方法について詳しく説明します。 なぜグループ化が隠れるよりも優れているのですか? 列を隠す(列のタイトルを右クリックして「非表示」を選択)は、タイトル自体を削除できるため、列のタイトルプロンプトでさえ信頼できません。対照的に、グループ化された列はより速く、拡張と折りたたみにより便利です。これにより、作業効率が向上するだけでなく、特にマルチパーソンのコラボレーションの場合、ユーザーエクスペリエンスが向上します。 さらに、グループ化列により、非表示の列では実現できないサブグループの作成が可能になります。これが番号です

See all articles

ホットAIツール

Undresser.AI Undress

Undresser.AI Undress

リアルなヌード写真を作成する AI 搭載アプリ

AI Clothes Remover

AI Clothes Remover

写真から衣服を削除するオンライン AI ツール。

Undress AI Tool

Undress AI Tool

脱衣画像を無料で

Clothoff.io

Clothoff.io

AI衣類リムーバー

AI Hentai Generator

AI Hentai Generator

AIヘンタイを無料で生成します。

ホットツール

SublimeText3 Mac版

SublimeText3 Mac版

神レベルのコード編集ソフト(SublimeText3)

メモ帳++7.3.1

メモ帳++7.3.1

使いやすく無料のコードエディター

MinGW - Minimalist GNU for Windows

MinGW - Minimalist GNU for Windows

このプロジェクトは osdn.net/projects/mingw に移行中です。引き続きそこでフォローしていただけます。 MinGW: GNU Compiler Collection (GCC) のネイティブ Windows ポートであり、ネイティブ Windows アプリケーションを構築するための自由に配布可能なインポート ライブラリとヘッダー ファイルであり、C99 機能をサポートする MSVC ランタイムの拡張機能が含まれています。すべての MinGW ソフトウェアは 64 ビット Windows プラットフォームで実行できます。

EditPlus 中国語クラック版

EditPlus 中国語クラック版

サイズが小さく、構文の強調表示、コード プロンプト機能はサポートされていません

SublimeText3 Linux 新バージョン

SublimeText3 Linux 新バージョン

SublimeText3 Linux 最新バージョン