- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
回復 1# hungrn
表1,表2 用電度數(度) 需改成 用電度數
還有其他寫法,也請大家發表
- Option Explicit
- Sub Ex()
- Dim i As Variant
- For Each i In Names
- i.Delete
- Next
- Worksheets("工作1").UsedRange.CreateNames True, False
- 'Range.CreateNames 方法在指定範圍中依據工作表中的文字標籤建立名稱
- With Worksheets("工作2").UsedRange
- For i = 1 To .Columns.Count
- If .Cells(1, i) <> "" Then
- With Range(.Cells(1, i).Value) '工作表中的文字標籤建立名稱
- Cells(2, i).Resize(.Rows.Count) = .Value
- End With
- End If
- Next
- End With
- End Sub
|
|
發表於 2017-8-4 16:13
| 