返回列表 上一主題 發帖

[發問] Excel 單欄資料轉多欄

pointchi

帖子
15 
主題
3 
精華
0 
積分
68 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2022-10-9 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2022-9-11 23:58 | 顯示全部帖子

[發問] Excel 單欄資料轉多欄

您好，
我有一個"檢核板號.xlsm"讓使用者於A1.A2.A3.A4分別輸入特定資料，每4筆資料為一組。

目前我於F欄~I欄預設好表頭與公式至201列(依經驗最多是50組+表頭1列)，然後執行我錄製並修改過的巨集另存新檔於桌面(檔名邏輯是月月日日-時時分分.xlsx)。
但是這樣每次都要刪除新檔中儲存格值為0的資料，才可以正常列印，不然會浪費很多紙張。

底下是我的巨集代碼：
  1. Sub Step01()

  3. M1 = Format(Now, "MM")
  4. D1 = Format(Now, "DD")
  5. H1 = Format(Now, "HH")
  6. N1 = Format(Now, "NN")

  8.     Columns("F:I").Select
  9.     Selection.Copy
  10.     Workbooks.Add
  11.     Columns("A:A").Select
  12.     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
  13.         :=False, Transpose:=False
  14.     Application.CutCopyMode = False
  15.     ActiveWorkbook.SaveAs Filename:="C:\Users\Point\OneDrive\桌面\" & M1 & D1 & "-" & H1 & N1 & ".xlsx"
  16. End Sub
複製代碼
請教前輩可以幫我修改成，先判斷C13儲存格是數字(如果不是數字表示輸入資料不完全，則不執行程式)，如是則將"檢核板號.xlsm"的A欄資料，分別丟到新檔的A欄~D欄，並存檔嗎。
感謝。
檢核板號.rar (24.68 KB)
收藏 分享

pointchi

帖子
15 
主題
3 
精華
0 
積分
68 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2022-10-9 
2#
發表於 2022-9-13 11:03 | 顯示全部帖子
回復 2# samwang
S大您好，
前文書寫不清楚，我的意思是在F欄~I欄不預設好表頭與公式的前提下，直接將"檢核板號.xlsm"的A欄資料，直接顯示於新檔的A欄~D欄，並存檔。

TOP

pointchi

帖子
15 
主題
3 
精華
0 
積分
68 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2022-10-9 
3#
發表於 2022-9-14 22:28 | 顯示全部帖子
回復 4# hcm19522
H大，
我當時的公式也是從您那邊學來的。
而且我常常找資料時也都出現您的BLOG，從您那挖出很多很厲害的公式解法。

TOP

pointchi

帖子
15 
主題
3 
精華
0 
積分
68 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2022-10-9 
4#
發表於 2022-9-14 22:30 | 顯示全部帖子
回復 5# Andy2483
Andy哥，
感謝您的程式支援可以順利執行。

TOP

pointchi

帖子
15 
主題
3 
精華
0 
積分
68 
點名
0  
作業系統
Window XP 
軟體版本
OFFICE 2003 
閱讀權限
20 
註冊時間
2016-8-2 
最後登錄
2022-10-9 
5#
發表於 2022-9-16 11:44 | 顯示全部帖子
回復 8# samwang
感謝S大，
您的程式碼也可以順利運作。

TOP

        靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。
返回列表 上一主題