次の問題があります：5000行50列のExcelシートがあります。シートをコピーして貼り付け、最初のシートの行の特定のセルからこのシートに値をエクスポートする必要がありますが、B1 と B2 の値が同じ場合は、別のシートを作成せずに、最初の行の下の同じシートにコピーします. Excelで一度に5000枚も作成したくないので、条件「07」を追加しました。これまでのところ、私はこれを持っています:
Sub Button1_Click()
Dim newsheetname As String
Dim isometry As String
Application.ScreenUpdating = False
Worksheets("Sheet1").Activate
x = 2
Do While Cells(x, 4) <> ""
If Cells(x, 1) = "07" Then
Sheets(Sheets.Count).Select
Cells(33, 2) = Sheet1.Cells(x, 4)
Cells(33, 28) = Sheet1.Cells(x, 32)
End If
If Cells(x, 4) <> Cells(x + 1, 4) Then
Sheets("template").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = isometry
End If
isometry = Sheet1.Cells(x + 1, 4)
x = x + 1
Worksheets("Sheet1").Activate
Loop
End Sub
私の「コード」は非常に単純で完璧ではないことを知っています.VBAから始めています。誰かがそれを完了する方法をアドバイスできますか、それはほぼ完了していると思いますが、「新しい」シートの文字列も欠落しています。もちろん、同じ名前のシートを 2 つ持つことはできないというエラーが表示されます。ありがとう