Excel - Sao chép các ô mà không cần định dạng / dữ liệu kiểu

Tôi đang cố gắng sao chép một phạm vi ô từ bảng tính Excel 2010 và dán chúng vào bảng trong AutoCAD LT 2016. Vấn đề của tôi là Excel áp dụng thông tin định dạng cho từng ô. AutoCAD sử dụng định dạng này để ghi đè các kiểu của nó trên cơ sở từng ô, do đó bảng của tôi không tuân thủ các tiêu chuẩn thiết kế.

Những gì tôi muốn làm là xóa tất cả định dạng khỏi tệp Excel như có thể được thực hiện trong Excel & lt; 97. Không, nếu có một tiện ích clipboard xóa định dạng khỏi bảng (nhưng thông tin hợp nhất ô bên trái) sẽ là một lựa chọn thay thế chấp nhận được.

Tôi đã thử cắt và dán từ Google Docs và LibreOffice, nhưng AutoCAD diễn giải các đối tượng clipboard của họ theo cách khác và không tạo bảng từ dữ liệu khi dán.

Tôi đã thấy một số thói quen LISP sẽ xóa định dạng này trong AutoCAD, nhưng vì chủ nhân của tôi chạy LT, nên chúng không có sẵn cho tôi.

Có ý kiến ​​gì không?

Để xóa tất cả định dạng, chọn các ô trong câu hỏi và từ Ribbon bấm:

Home > Editing > Clear > Clear Formats

Cách giải quyết rẻ và vui vẻ:

Bạn đã thử sao chép một cột vào notepad rồi sao chép từ notepad sang Autocad chưa?

Bạn thậm chí có thể sao chép toàn bộ bảng vào notepad và sau đó vào autocad (Tôi không có nó vì vậy tôi đã không thử nó), nhưng rất có thể nó sẽ chỉ nhập mỗi hàng vào một ô bằng một tab các ký tự và bạn sẽ phải thực hiện theo từng cột.

Tôi giả sử rằng bạn đã thử "dán giá trị" vào một trang tính khác và sau đó sao chép từ trang tính đó? Nếu bạn làm điều đó, nó sao chép "calibri, kích thước 10" hoặc bất kỳ kiểu mặc định nào của excel được đặt thành thay vì văn bản gốc, hay nó hoạt động?

Hy vọng một trong những giúp đỡ

Nếu bạn muốn xóa tất cả các định dạng khỏi bảng tính, nhưng giữ lại việc hợp nhất ô, thì:

1. sao chép bảng tính
2. xóa tất cả các định dạng trong bản sao (điều này cũng sẽ hủy hợp nhất các ô)
3. hợp nhất các ô trong bản sao dựa trên các ô được hợp nhất trong bản gốc

Macro ngắn này sẽ làm điều này:

Sub qwerty()
   Dim orig As Worksheet, r As Range
   Dim neww As Worksheet
   Set orig = ActiveSheet

   ActiveSheet.Copy After:=Worksheets(Sheets.Count)
   Set neww = ActiveSheet
   Cells.ClearFormats
   For Each r In orig.UsedRange
      If r.MergeArea.Address = r.Address Then
      Else
         neww.Range(r.MergeArea.Address).Merge
      End If
   Next r
End Sub