返回列表 上一主題 發帖

請問如何設定紀錄檔

請問如何設定紀錄檔

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

紀錄檔.rar (5.25 KB)

Tony

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

TOP

回復 2# tonycho33


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

TOP

本帖最後由 GBKEE 於 2011-12-15 17:31 編輯

回復 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
複製代碼

TOP

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

TOP

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

TOP

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

TOP

本帖最後由 register313 於 2011-12-16 22:20 編輯

回復 7# tonycho33

清除不可見字元

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

TOP

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

請問指令要如何下呢
謝謝
Tony

TOP

回復 9# tonycho33


For Each a In UsedRange
    a.Value = Trim(a)
Next
學海無涯_不恥下問

TOP

        靜思自在 : 不要小看自己,因為人有無限的可能。
返回列表 上一主題