請問如何設定紀錄檔

tonycho33

請問目前有一個EXCEL檔
主檔為輸入內容
如何自動存取轉換成紀錄檔的格式

tonycho33

請問如何進行資料轉換呢
主檔sheet的格式轉換成紀錄檔sheet的格式
謝謝

tonycho33

回復 2# tonycho33


    請問兩個sheet的資料轉換，有人可以協助一下嗎
謝謝

GBKEE

回復 3# tonycho33

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim R As Integer, R1 As Integer, Rng As Range
   
4.     R = 2: R1 = 2
   
5.     Sheets("紀錄檔").UsedRange.Offset(1).Clear
   
6.     Sheets("主檔").Activate
   
7.     Do
   
8.         Set Rng = Sheets("主檔").Range(Cells(R, "D"), Cells(R, "D").End(xlToRight)).Resize(3)
   
9.         With Sheets("紀錄檔")
   
10.             .Cells(R1, "A") = Cells(R, "A")
    
11.             .Cells(R1, "B") = Cells(R, "B")
    
12.            R1 = R1 + 1
    
13.             .Cells(R1, "C").Resize(Rng.Columns.Count, 3) = Application.Transpose(Rng)
    
14.             .Cells(R1, "G").Resize(Rng.Columns.Count) = Cells(R, "C")
    
15.             R1 = R1 + Rng.Columns.Count
    
16.         End With
    
17.         R = R + 3
    
18.     Loop While Cells(R, "D") <> ""
    
19. End Sub

複製代碼

下載 (80.49 KB)

2011-12-15 17:26

tonycho33

請問可以解釋一下程式的意思嗎
Cells(R1, "A") 的"A"是代表什麼含意呢
謝謝

kobo

R1 是變數指的是"列數"
"A"應是指A這個"欄位"
例R1=1  那Cells(R1, "A") =Range("A1")
亦可用Cells(R1, 1)表示
例R1=2  那Cells(R1, "B") =Range("B2")
亦可用Cells(R1, 2)表示

tonycho33

請問你說的空白處不能有字元
但我會連結公式，設定帶出來是『""』
這樣轉過去後還是會出現空白
有辦法解決這個問題嗎
謝謝

register313

回復 7# tonycho33

清除不可見字元

方法1:在EXCEL內選取儲存格 複製 , 切換到WORD  貼上  
         在WORD內選取儲存格 複製 , 切換到EXCEL  貼上
方法2:利用VBA RTRIM與LTRIM  將每個儲存格內的不可見字元清除

tonycho33

方法2:利用VBA RTRIM與LTRIM  將每個儲存格內的不可見字元清除

請問指令要如何下呢
謝謝

Hsieh

回復 9# tonycho33


For Each a In UsedRange
    a.Value = Trim(a)
Next