1樓:
把加粗的數字改成你的表列數
Sub huizong()
Dim bt As Range, r As Long, c As Long'bt為表頭
r =2'表頭的行數
c =13'表頭的列數
Range(Cells(r, "A"), Cells(65536, c)).ClearContents'清除彙總表中的原表內資料
Do While filename <> ""
If filename <> ThisWorkbook.Name Then
'判斷該檔案是否本工作簿
erow = Range("A1").CurrentRegion.Rows.Count + 1'取得彙總表中第一條空行行號
fn = ThisWorkbook.Path & "\" & filename
Set wb = GetObject(fn'將fn代表的工作簿物件賦給變數
Set sht = wb.Worksheets(1)
arr = sht.Range(sht.Cells(r, "A"), sht.
Cells(65536, "B").End(xlUp).Offset(0,13))
'將資料表中的記錄儲存在arr陣列裡
Cells(erow, "A").Resize(UBound(arr, 1), UBound(arr, 2)) = arr
'將陣列arr中的資料寫入工作表
wb.Close False
End If
如何將EXCEL列表中的文字拆分?
丙boy 如果需要加了選項序號,批量填充即可,複製下單元格就好通用辦法,一般拿到一堆擠在一起文字或數字,需要標準化格式的話,建議先觀察有沒有規律,類似空格 分號等,或者貼到記事本,格式會更容易看到,發現規律後,用一些文字函式處理。常用的文字函式有 left right len text MID RE...
在excel中如何將500數量隨機分配到112個格仔,每個格仔的數在1 5之間。?
jaffedream 方法一啟用迭代,B1 IF SUM B 1 B 112 A 1,B1,RANDBETWEEN A 1 112 1,A 1 112 1 方法二A2 1,A3 5。啟用迭代,B1 RANDBETWEEN MAX A 2,A 1 112 ROW A 3 MIN A 3,A 1 112...
求VBA大神指教,如何將圖1的EXCEl自動化生成圖2?
Subtrans Dim dataArea AsString Dimdata result iRow,i jdataArea A1 B3 data Range dataArea Valuei 0For iRow LBound data To UBound data Forj 0Todata iRow...