Note: The other languages of the website are Google-translated. Back to English

Làm cách nào để tạo trang tính mới cho mỗi hàng trong Excel?

Giả sử bạn có một bảng điểm với tất cả tên của học sinh trong cột A. Bây giờ, bạn muốn tạo các trang tính mới dựa trên các tên này trong cột A và làm cho mỗi trang tính chứa dữ liệu của một học sinh duy nhất. Hoặc chỉ cần tạo trang tính mới cho chỉ mỗi hàng trong bảng mà không cần xem xét các tên trong cột A. Trong vedio này, bạn sẽ nhận được các phương pháp để đạt được nó.

Tạo trang tính mới cho mỗi hàng bằng mã VBA
Tạo trang tính mới cho mỗi hàng với tiện ích Dữ liệu phân tách của Kutools cho Excel


Tạo trang tính mới cho mỗi hàng bằng mã VBA

Với các mã sau, bạn có thể tạo trang tính mới dựa trên giá trị cột hoặc chỉ tạo trang tính mới cho mỗi hàng trong Excel.

1. nhấn Khác + F11 các phím đồng thời để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. bên trong Microsoft Visual Basic cho các ứng dụng cửa sổ, nhấp Chèn > Mô-đun. Và sau đó dán mã sau vào Mô-đun cửa sổ.

Mã VBA: tạo trang tính mới cho mỗi hàng dựa trên cột

Sub parse_data()
'Update by Extendoffice 2018/3/2
    Dim xRCount As Long
    Dim xSht As Worksheet
    Dim xNSht As Worksheet
    Dim I As Long
    Dim xTRrow As Integer
    Dim xCol As New Collection
    Dim xTitle As String
    Dim xSUpdate As Boolean
    Set xSht = ActiveSheet
    On Error Resume Next
    xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
    xTitle = "A1:C1"
    xTRrow = xSht.Range(xTitle).Cells(1).Row
    For I = 2 To xRCount
        Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
    Next
    xSUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For I = 1 To xCol.Count
        Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
        Set xNSht = Nothing
        Set xNSht = Worksheets(CStr(xCol.Item(I)))
        If xNSht Is Nothing Then
            Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
            xNSht.Name = CStr(xCol.Item(I))
        Else
            xNSht.Move , Sheets(Sheets.Count)
        End If
        xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
        xNSht.Columns.AutoFit
    Next
    xSht.AutoFilterMode = False
    xSht.Activate
    Application.ScreenUpdating = xSUpdate
End Sub

Chú thích: A1: C1 là dải tiêu đề của bảng của bạn. Bạn có thể thay đổi nó dựa trên nhu cầu của bạn.

3. nhấn F5 phím để chạy mã, sau đó các trang tính mới được tạo sau khi tất cả các trang tính của sổ làm việc hiện tại như ảnh chụp màn hình bên dưới:

Nếu bạn muốn trực tiếp tạo trang tính mới cho mỗi hàng mà không cần xem xét giá trị cột, bạn có thể sử dụng mã sau.

Mã VBA: Trực tiếp tạo trang tính mới cho mỗi hàng

Sub RowToSheet()
	Dim xRow As Long
	Dim I As Long
	With ActiveSheet
		xRow = .Range("A" & Rows.Count).End(xlUp).Row
		For I = 1 To xRow
			Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
			.Rows(I).Copy Sheets("Row " & I).Range("A1")
		Next I
	End With
End Sub

Sau khi chạy mã, mỗi hàng trong trang tính đang hoạt động sẽ được đặt trong một trang tính mới.

Chú thích: Hàng tiêu đề cũng sẽ được đặt trong một trang tính mới với mã VBA này.


Tạo trang tính mới cho mỗi hàng với tiện ích Dữ liệu phân tách của Kutools cho Excel

Trên thực tế, phương pháp trên là phức tạp và khó hiểu. Trong phần này, chúng tôi giới thiệu cho bạn Dữ liệu phân tách tiện ích của Kutools cho Excel.

Trước khi áp dụng Kutools cho Excel, Xin vui lòng tải xuống và cài đặt nó trước tiên.

1. Chọn bảng bạn cần sử dụng để tạo trang tính mới, sau đó nhấp vào Kutools Plus> Dữ liệu nhổ. Xem ảnh chụp màn hình:

2. bên trong Chia dữ liệu thành nhiều trang tính hộp thoại, vui lòng làm như sau.

A. Để tạo trang tính mới dựa trên giá trị cột:

1). Vui lòng chọn Cột cụ thể và chỉ định một cột mà bạn muốn tách dữ liệu dựa trên trong danh sách thả xuống;
2). Nếu bạn muốn đặt tên các trang tính với giá trị cột, vui lòng chọn Giá trị của cột trong Nội quy danh sách thả xuống;
3). Nhấn vào OK cái nút. Xem ảnh chụp màn hình:

B. Để tạo trực tiếp trang tính mới cho mỗi hàng:

1). Lựa chọn Hàng cố định tùy chọn, nhập số 1 vào trong hộp;
2). Lựa chọn Số hàng từ Nội quy danh sách thả xuống;
3). Nhấn vào OK cái nút. Xem ảnh chụp màn hình:

một sổ làm việc mới được tạo với tất cả các trang tính mới bên trong. Xem ảnh chụp màn hình bên dưới.

Tạo trang tính mới cho mỗi hàng dựa trên giá trị cột:

Tạo trang tính mới cho mỗi hàng mà không xem xét giá trị cột:

  Nếu bạn muốn dùng thử miễn phí (30-day) của tiện ích này, vui lòng nhấp để tải xuống, và sau đó đi đến áp dụng hoạt động theo các bước trên.

Tạo trang tính mới cho mỗi hàng với tiện ích Dữ liệu phân tách của Kutools cho Excel


Các công cụ năng suất văn phòng tốt nhất

Kutools cho Excel giải quyết hầu hết các vấn đề của bạn và tăng 80% năng suất của bạn

  • Tái sử dụng: Chèn nhanh công thức phức tạp, biểu đồ và bất cứ thứ gì bạn đã sử dụng trước đây; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột mà không làm mất dữ liệu; Nội dung phân chia ô; Kết hợp các hàng / cột trùng lặp... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Hơn 300 tính năng mạnh mẽ. Hỗ trợ Office / Excel 2007-2021 và 365. Hỗ trợ tất cả các ngôn ngữ. Dễ dàng triển khai trong doanh nghiệp hoặc tổ chức của bạn. Đầy đủ tính năng Dùng thử miễn phí 30 ngày. Bảo đảm hoàn lại tiền trong 60 ngày.
tab kte 201905

Tab Office mang lại giao diện Tab cho Office và giúp công việc của bạn trở nên dễ dàng hơn nhiều

  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng
Nhận xét (33)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi muốn tạo trang tính dựa trên tệp mẫu Myformat của tôi và đặt tên chúng theo dữ liệu cột đầu tiên. Tôi đã tùy chỉnh mã VBA như sau, nhưng nó đang tạo ra quá nhiều trang tính trống. Bạn có thể vui lòng giúp tôi ngừng tạo trang tính trắng không. Cảm ơn bạn. Kumar Sub AddSheets () Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook For Each cell In wsWithSheet " Thêm sau: = ActiveSheet Sheets. Loại thêm: = _ "C: \ Users \ Dimple \ AppData \ Roaming \ Microsoft \ Templates \ MyFormat.xltx" Khi tiếp tục có lỗi Tiếp theo ActiveSheet.Name = cell.Value If Err.Number = 2 Sau đó Debug.Print cell.Value & "đã được sử dụng làm tên trang tính" End If On Error GoTo 165 End With Next cell End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào,
Tôi luôn nhận được 2 tờ cho mỗi mục nhập duy nhất trên hàng A. Bất kỳ ý tưởng tại sao? Ngoài ra, sẽ khó khăn như thế nào khi thêm tổng số hàng mà trang tính đã tạo tạo vào tên trang tính. Cám ơn rất nhiều! Hãy cho tôi biết nếu bạn nhận đóng góp.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi muốn sử dụng mẫu tệp exel MyFormat của mình để tạo trang tính và đặt tên trang tính theo dữ liệu trên cột đầu tiên. Mã VBA sau đang hoạt động tốt để tạo các trang tính theo MyFormat. Nhưng nó cũng đang tạo ra hàng trăm trang tính trống trên excel Templete thông thường. Xin cơ quan nào đó giúp tôi cách ngừng tạo ra các tờ giấy trắng thừa. Cảm ơn Kumar Sub AddSheets () Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook For Each cell In wsWithSheet ". .Add After: = ActiveSheet Sheets. Sau đó Debug.Print ô.Value & "đã được sử dụng làm tên trang tính" Kết thúc Nếu Bật Lỗi GoTo 2 Kết thúc Với ô tiếp theo Kết thúc Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tên trang tính phải có độ dài nhỏ hơn hoặc bằng ba mươi ký tự.
Không phải là kiến ​​thức phổ biến, nhưng nếu không thì mã sẽ xuất ra một trang tính "Trang tính #" trống mặc định.

Tạo một trang tính mới mà mã phân tích cú pháp của bạn sẽ chạy qua và tham chiếu đến cột đầu tiên như sau:
= IF (OR ('Bản gốc được tham chiếu'! B1 <> "", LEN ('Bản gốc được tham chiếu'! B1)> 30), LEFT ('Bản gốc được tham chiếu'! B1,30), 'Bản gốc được tham chiếu'! B1)


Bạn có thể sao chép hoặc tham chiếu phần còn lại của trang tính. Đảm bảo rằng cột không có giới hạn xác thực dữ liệu nếu bạn gặp bất kỳ sự cố nào khi tham chiếu trang tính khác.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn bạn rất nhiều vì đã gửi bài này!!!! Làm việc như người ở. Bạn có thể giải thích cách hoạt động của bộ mã đầu tiên không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì điều này!



Trong mã VBA vẫn có để đặt tên cho các trang kết quả từ dữ liệu hàng cột thứ nhất và thứ hai được kết hợp?



vì vậy, đối với ví dụ của bạn, sheet 2 sẽ được đặt tên tự động là "linda 100"
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Joyce thân mến,
Cảm ơn bạn fr bình luận của bạn! Hy vọng tập lệnh VBA dưới đây có thể giúp ích cho bạn.

Phân tích cú pháp_dữ liệu ()
Dim xRCount As Long
Dim xSht dưới dạng bảng tính
Dim xNSht dưới dạng bảng tính
Dim I As Long
Dim xTrow dưới dạng số nguyên
Dim xCol làm bộ sưu tập mới
Dim xTitle dưới dạng chuỗi
On Error Resume Next
Application.ScreenUpdating = Sai
Đặt xSht = ActiveSheet
xRCount = xSht.UsedRange.End (xlDown) .Row
xTitle = "A1: B1"
xTRrow = xSht.Range (xTitle) .Row
Đối với I = 2 Đến xRCount
Gọi xCol.Add (CStr (xSht.Cells (I, 1)), CStr (xSht.Cells (I, 1)))
Sau
Debug.Print xCol.Count
Đối với I = 1 Đến xCol.Count
Gọi xSht.Range (xTitle) .AutoFilter (1, CStr (xCol.Item (I)))
Đặt xNSht = Không có gì
Đặt xNSht = Worksheets (CStr (xCol.Item (I)))
Nếu xNSht không là gì thì
Đặt xNSht = Worksheets.Add (, Sheets (Sheets.Count))
xNSht.Name = CStr (xCol.Item (I) & xSht.Cells (I + 1, 2))
Khác
xNSht.Move, Trang tính (Sheets.Count)
Cuối Nếu
xSht.Range ("A" & xTRrow & ": A" & xRCount) .EntireRow.Copy xNSht.Range ("A1")
xNSht.Columns.AutoFit
Sau
xSht.AutoFilterMode = Sai
xSht.Kích hoạt
Application.ScreenUpdating = True
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Điều này cực kỳ hữu ích, đúng như những gì tôi đang tìm kiếm. Thanks!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã này rất hữu ích và gần như là những gì tôi đang tìm kiếm.
Nhưng nó có thể được điều chỉnh để có hai trang tính -
Trang 1 là Dữ liệu - một bảng dữ liệu với Cột A là tên
Trang tính 2 là một mẫu, với nhiều trường yêu cầu điền
Những gì tôi đã hy vọng là chạy một macro, điều này sẽ
1 Sao chép-dán mẫu, trong cùng một tệp, đặt tên trang tính như tên trong Ô A1
2 Sao chép ô B1 rồi dán vào trường đã chọn trong mẫu mới
3 lặp lại dọc theo hàng 1 cho đến khi trống
4 sau đó lặp lại cho hàng 2 và mỗi hàng cho đến hết.
Kết quả là một tập tin có x không. tất cả các trang giống như mẫu, với tất cả các trường được điền.
Tôi kế thừa một tệp hoạt động theo cách khác, trích xuất dữ liệu từ các mẫu vào một bảng, nhưng không thể đảo ngược nó .....
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Sam thân mên,
Sẽ rất tuyệt nếu bạn có thể đính kèm sổ làm việc của mình ở đây.
Bạn có thể tải tệp của mình lên bằng nút Tải tệp lên bên dưới.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi đã cố gắng sử dụng mã của bạn nhưng tôi gặp lỗi
Run-timeerror '1004':
Lỗi do ứng dụng xác định hoặc do đối tượng xác định
Tôi không có kiến ​​thức về VBA (hoặc bất kỳ công nghệ nào cho vấn đề đó) nhưng nếu báo chí gỡ lỗi nó sẽ làm nổi bật dòng 11 xRCount = xSht.Cells (xSht.Rows.Count, 1). Kết thúc (xIUp) .Row
Tôi đang làm việc với một tệp lớn có 127 cột và 337 hàng (các hàng sẽ không thay đổi các cột) và đó là một danh sách với số tôi muốn và thông tin chi tiết của chúng.
Tôi đã thay đổi phạm vi như bạn đã lưu ý nhưng vẫn không hoạt động Tôi đang sử dụng Excel 2010, bạn có thể vui lòng cho tôi biết cách làm cho nó hoạt động nếu có thể được không
Cảm ơn bạn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Beatriz thân mến,
Mã được cập nhật để giải quyết vấn đề. Vui lòng thử lại lần nữa. Cảm ơn bình luận của bạn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, tôi nghĩ rằng có điều gì đó hữu ích ở đây cho tình huống của tôi, nhưng tôi có thể làm VBA hoặc tập lệnh, mong bạn có thể giúp đỡ.
Tôi có một mẫu với nhiều ô để điền dữ liệu và sẽ có một khóa tìm kiếm (không phải là duy nhất) mà tôi muốn nhập vào mẫu. Dựa trên khóa tìm kiếm, dữ liệu được tìm kiếm và dữ liệu tương ứng trên khóa phù hợp được tìm nạp và điền vào mẫu. Mẫu đã điền được lưu vào một trang tính mới. Có thể có nhiều hơn 1 mục kết hợp. Tôi cần tập lệnh để tiếp tục tìm kiếm trong danh sách, cho đến khi tất cả các kết quả phù hợp được chọn và một số trang tính mới nhất định được tạo.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, có cách nào để giữ hàng tiêu đề trên mỗi trang tính mới không? (khoanh đỏ trên tệp đính kèm của tôi)

Mã lấy tất cả các hàng từ trang tính chính của tôi và chuyển chúng sang trang tính mới, điều này thật tuyệt. Nhưng tôi muốn giữ giá trị tiêu đề "chính" của mình (khoanh đỏ) ở đầu mỗi trang tính mới. Thanks!



Tôi đang đề cập đến mã này từ bên trên:

Sub RowToSheet ()
Dim xRow As Long
Dim I As Long
Với ActiveSheet
xRow = .Range ("A" & Rows.Count) .End (xlUp) .Row
Đối với I = 1 Đến xRow
Worksheets.Add (, Sheets (Sheets.Count)). Name = "Row" & I
.Rows (I) .Copy Sheets ("Row" & I) .Range ("A1")
Tiếp theo tôi
Kết thúc với
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã tuyệt vời, nhưng tôi có thể nhận được một số trợ giúp nếu dữ liệu của tôi nằm trên cột G thay vì cột A không? tôi cần thay đổi điều gì để có dữ liệu Cột G trong tab khác?

Cảm ơn
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đây là mã tuyệt vời. Rất cám ơn các hộp não tại OfficeExtend !! Có dù sao mã này có thể được điều chỉnh một chút để tạo các trang tính riêng biệt cho mỗi * cột * thay vì hàng không? Tôi đã đính kèm một bức tranh về những gì tôi đang cố gắng đạt được. Điều này có khả thi không? Trân trọng.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Ngày tốt,
Tôi không thấy hình ảnh của bạn ở đây.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, làm thế nào để sửa đổi mã, nếu trường tên của tôi nằm trong cột C.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào Abdul Basit,
Mã VBA dưới đây có thể giúp bạn. Xin vui lòng có một thử.
Trong dòng: xCName = "3", 3 cho biết số cột (ở đây là cột C) trong Excel. Bạn có thể thay đổi nó thành bất kỳ số cột nào khi bạn cần.

Phân tích cú pháp_dữ liệu ()
'Cập nhật bởi Extendoffice 2018 / 3 / 2
Dim xRCount As Long
Dim xSht dưới dạng bảng tính
Dim xNSht dưới dạng bảng tính
Dim I As Long
Dim xTrow dưới dạng số nguyên
Dim xCol làm bộ sưu tập mới
Dim xTitle dưới dạng chuỗi
Dim xSUpdate dưới dạng Boolean
Làm mờ xCName thành số nguyên
Làm mờ xTA, xRA, xSRg1 dưới dạng chuỗi
Đặt xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells (xSht.Rows.Count, 1) .End (xlUp) .Row
xTitle = "A1: C1"
xCName = "3" 'Thay đổi số này thành số cột mà bạn sẽ tạo trang tính mới dựa trên
xTRrow = xSht.Range (xTitle) .Cells (1) .Row
Đối với I = 2 Đến xRCount
Gọi xCol.Add (xSht.Cells (I, xCName) .Text, xSht.Cells (I, xCName) .Text)
Sau
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = Sai
xSRg = xSht.Cells (1, xCName) .Address (RowAbsolute: = False, ColumnAbsolute: = False)
Đối với I = 1 Đến xCol.Count
Gọi xSht.Range (xTitle) .AutoFilter (xCName, CStr (xCol.Item (I)))
Đặt xNSht = Không có gì
Đặt xNSht = Worksheets (CStr (xCol.Item (I)))
Nếu xNSht không là gì thì
Đặt xNSht = Worksheets.Add (, Sheets (Sheets.Count))
xNSht.Name = CStr (xCol.Item (I))
Khác
xNSht.Move, Trang tính (Sheets.Count)
Cuối Nếu
xSht.Range ("A" & xTRrow & ": A" & xRCount) .EntireRow.Copy xNSht.Range ("A1")
xNSht.Columns.AutoFit
Sau
xSht.AutoFilterMode = Sai
xSht.Kích hoạt
Application.ScreenUpdating = xSUpdate
End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Mã VBA tuyệt vời để thực hiện thủ thuật.

Làm cách nào để tôi có thể sửa đổi nó để không sao chép cột đầu tiên? Và để loại bỏ tên cột?

Trân trọng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Vui lòng cho tôi xin trợ giúp về cách tự động đặt tên trang tính bằng một cột cụ thể. Đây là hàng để trang tính VBA. Xem bên dưới

Sub RowToSheet ()

Dim xRow As Long

Dim I As Long

Với ActiveSheet

xRow = .Range ("A" & Rows.Count) .End (xlUp) .Row

Đối với I = 1 Đến xRow

Worksheets.Add (, Sheets (Sheets.Count)). Name = "Row" & I

.Rows (I) .Copy Sheets ("Row" & I) .Range ("A1")

Tiếp theo tôi

Kết thúc với

End Sub
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đừng bận tâm rằng đó là dấu cách ẩn. Tôi đã sử dụng tính năng TRIM và làm sạch nó. Có một số hàng (số dòng thực sự để các hàng -1 được thêm trước vào trang tính sẽ thật tuyệt vời)
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào để tham khảo việc sử dụng mã trên (tín dụng)? Có thể sửa đổi mã không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, đây là một nền tảng giao tiếp mở. Mã được phép tham chiếu và sửa đổi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nana
86
số 2
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào! Tôi vừa mới sử dụng mã này và nó đã hoạt động! Ngoài việc tạo một trang tính mới cho mỗi mục nhập, tôi muốn chuyển nó thành các cột và không thể tìm ra. Vì vậy, đối với ví dụ trên, đầu ra cho Nana sẽ giống như sau: Họ tên NanaĐiểm số 86Không. 2
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, đã sử dụng mã này và hoạt động, nhưng Nếu tôi muốn chọn nhiều hơn thì một hàng trong tiêu đề, điều gì sẽ thay đổi trong mã? Tôi có nhiều dòng trong trang tính mà tôi muốn trong mỗi trang tính.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, bạn đã tìm ra cách làm chưa?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, có mã sẽ chỉ thêm 1 trang tính mới mỗi khi chạy macro, ví dụ: lần đầu tiên trang tính mới sẽ được đặt tên trên nội dung của ô A1, lần thứ hai chạy macro, trang tính mới sẽ được đặt tên trên nội dung của A1, vv cảm ơn trong dự đoán
Không có bình luận nào được đăng ở đây
Tải thêm
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL