有一個excel檔案test.xlsx，sheet1里面的A列值A1~A3 = ("AAA","BBB","CCC")，想讀取這三個值，回圈創建三個以這個值為名字的sheet，然后各自的sheet里面的A1值等于這個值，有大神嗎？
uj5u.com熱心網友回復：
Sub 新建()
Dim ws As Worksheet
Dim i&, s$, s1$
s1 = "表已存在"
With ThisWorkbook.Sheets("Sheet1")
For i = 1 To .Cells(Rows.Count, 1).End(xlUp).Row
s = .Cells(i, 1)
On Error Resume Next
With ThisWorkbook.Sheets(s)
If Err.Number Then
With ThisWorkbook.Sheets.Add(after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
.Name = s
.Cells(1, 1) = s
Err.Clear
End With
Else
s1 = s & Chr(13) & s1
End If
End With
Next
End With
If s1 <> "表已存在" Then MsgBox s1
End Sub
uj5u.com熱心網友回復：
Private Sub CommandButton1_Click()Dim a As Integer, b As String
b = "Sheet1"
For a = 1 To 3
Worksheets.Add after:=Worksheets(b)
ActiveSheet.Name = Worksheets("Sheet1").Range("A" & a)
ActiveSheet.Range("A1") = Worksheets("Sheet1").Range("A" & a)
b = Worksheets("Sheet1").Range("A" & a)
Next a
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/13542.html
標籤：VBA
上一篇：vb.net 關于datagridview中的列，如何設定某一列（DataGridViewTextBoxColumn）的問題