VBA を使用してすべてのワークシートを結合する

vba合并全シート

サブADO結合查询（）

Dim cnn As Object、SQL$、MyPath$、MyFile$、m&、n&

Set cnn = CreateObject(＂ADODB.Connection＂)

[a:b].ClearContents

MyPath = ThisWorkbook.Path & ＂\＂

MyFile = Dir(MyPath & ＂*.xls＂)

MyFile を実行しながら行う ＂＂

MyFile ThisWorkbook.Name の場合は、

n = n 1

If n = 1 then cnn.Open ＂Provider=Microsoft.Jet.OLEDB.4.0;Extended;Data Source=＂ & MyPath & MyFile

m = m 1

m >49 の場合

Range(＂a＂ & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

m = 1

SQL = ＂＂

終了の場合

If Len(SQL) then SQL = SQL & ＂ すべて結合 ＂

SQL = SQL & ＂select f1,'＂ & Replace(MyFile, ＂.xls＂, ＂＂) & ＂' from [Excel 8.0;hdr=no;Database=＂ & MyPath & MyFile & ＂]。[シート1$A2:A]＂

終了の場合

MyFile = Dir()

＃＃＃ループ＃＃＃

If Len(SQL) then Range(＂a＂ & Rows.Count).End(xlUp).Offset(1).CopyFromRecordset cnn.Execute(SQL)

cnn.閉じる

cnn = なしを設定します

エンドサブ

用vba插入結合并充填单元格

プライベートサブコマンドボタン1_Click()

'最後の行r、上面插入一行、横向合并单元格n格、充填データs

Dim n、s、col、r、tmp

'----設定----

n = 2 '横方向合并单元格n格

s = ＂XXXXXX＂ '充填データs

col = ＂A＂ '以下列が操作対象の最左列

'----実行------

アクティブシートを使用する場合

r = .Cells(65536,col).End(xlUp).Row

.Rows(r).Insert xlShiftDown '插入行

.Cells(r,col).Resize(1,n)を使用します

.Merge '合并单元格

.Value = s '充填データ

で終わる

で終わる

エンドサブ

以上がVBA を使用してすべてのワークシートを結合するの詳細内容です。詳細については、PHP 中国語 Web サイトの他の関連記事を参照してください。