1

私は以下を達成したい、

異なる名前のワークシートを含む Excel ファイルがあります。一部のシートには、A1、A2、B1、B2、C1、C2 などの名前が付けられています。

シート名に「A」が含まれている場合は、A3:A70 を「range.xlsx」という別のワークブックにエクスポートします。

シート名に「B」が含まれている場合、範囲 B3:B70 を「range.xlsx」にエクスポートします。

シート名に「C」が含まれている場合、範囲 C3:C70 を「range.xlsx」にエクスポートします。

どんな助けでも本当に感謝します。

これは私が試したものです：

シート名のリストを作成し、このリストをループしてやりたいことを行いました。

ありがとう

4

3 に答える 3

1

テストされていないコードですが、正しい方向に進むはずです...

Dim wkbk As Excel.Workbook = ...
Dim regxp As New Regex("[abc]")
For Each wkst In wkbk.Worksheets
  If Not regxp.Match(wkst.Name) = "" Then
    ...
  End If
Next
于 2013-05-06T19:58:31.833 に答える