由于學校的有兩套不同的系統，要進行數據同步，都支持excel格式數據導入導出，但是兩套模板格式不一樣，需要進行轉換。

這個實例涉及到字符的截取，字段獲取以寫入，不同表之間的操作等。

源模板：

目標模板：

VBA代碼：

[code]Sub test()

Dim i%, r%, c%

Dim arr, brr()

With Worksheets("sheet1")

r = .Cells(.Rows.Count, 1).End(xlUp).Row

c = .Cells(1, Columns.Count).End(xlToLeft).Column

arr = .Range("a1").Resize(r,

c)

End With

ReDim brr(1 To (r - 1) * (c - 1), 1 To 5)

m = 1

For j = 2 To c

For i = 2 To r

crr = Split(arr(i, j), Chr(10))

drr = Split(arr(i, 1), "/")

brr(m, 1) = arr(1, j)

brr(m, 2) = crr(1)

brr(m, 3) = crr(0)

brr(m, 4) = drr(0)

brr(m, 5) = drr(1)

m = m + 1

Next

Next

With

Worksheets("sheet2")

.UsedRange.Offset(1, 0).ClearContents

.Range("a2").Resize(UBound(brr),

UBound(brr, 2)) = brr

End With

End Sub[/code]

總結

以上是生活随笔為你收集整理的vba 将html转换excel,利用VBA将不同格式excel模板之间进行数据转换实例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。