麻辣家族討論版版 » Excel程式區 » 如何將A欄相同的字, 插入新欄位新增到B欄裡

返回列表下一主題上一主題發帖

[發問] 如何將A欄相同的字, 插入新欄位新增到B欄裡

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2016-2-11 23:50 | 只看該作者

[發問] 如何將A欄相同的字, 插入新欄位新增到B欄裡

麻煩大大將EXCEL 資料表上Start 資料表上按鈕寫入功能
直接將FMC資料表做改變

請問一下高手如何將已合併的欄位如下圖

轉換成下圖?

就是把A欄位Product 整合到B欄位的最上欄

TEST.rar (19.33 KB)

樓主熱帖

收藏

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

2^#

發表於 2016-2-14 16:16 | 只看該作者

Sub test()
Dim i&, xR As Range, T$
For i = 9 To [FMC!A65536].End(xlUp).Row
　　Set xR = [FMC!A1].Cells(i, 1)
　　If xR = "" Or xR = T Then GoTo 101
　　[FMC!1:1].Copy
　　xR.Insert Shift:=xlDown
　　xR(0, 2) = "Product"
　　xR(0, 4) = xR
　　T = xR: i = i + 1
101: Next
[FMC!A:A].EntireColumn.Delete
End Sub

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

3^#

發表於 2016-2-15 01:00 | 只看該作者

回復 2# 准提部林

感謝版大再次鼎力相助!!!! 另想詢問一下版大 EXCEL 是否能做到即時看板系統? 還是這種系統只能用網頁+SQL資料庫去呈現呢?
如這篇所發問

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

4^#

發表於 2016-4-15 02:09 | 只看該作者

回復 2# 准提部林

請問大大 , 如果要將這個功能變成插入後Product A 那欄欄寬變24, A 欄~Y欄反底色黃色
怎麼修改呢? 如圖, 只是反色範圍有自訂到Y欄

我用錄製的程式碼請教大大如何修改

Rows("3:3").Select
Selection.RowHeight = 24
Range("A3:Y3").Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With

複製代碼

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

5^#

發表於 2016-4-15 10:31 | 只看該作者

回復 4# v03586

Sub test()
Dim i&, xR As Range, T$
For i = 9 To [FMC!A65536].End(xlUp).Row
Set xR = [FMC!A1].Cells(i, 1)
If xR = "" Or xR = T Then GoTo 101
[FMC!1:1].Copy
xR.Insert Shift:=xlDown
xR(0, 2) = "Product"
xR(0, 4) = xR
xR(0).RowHeight = 24
xR(0).Resize(1, 26).Interior.Color = vbYellow
T = xR: i = i + 1
101: Next
[FMC!A:A].EntireColumn.Delete
End Sub

複製代碼

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

6^#

發表於 2016-4-15 23:08 | 只看該作者

回復 5# 准提部林

感謝大大提點!!!! 修改完成囉~~~

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

7^#

發表於 2016-4-18 13:31 | 只看該作者

回復 5# 准提部林

在問一下....如果要將字體大小調整
加入這一行無效...請問要在哪邊加入呢？
xRG(0).size = 20

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-23

8^#

發表於 2016-4-18 14:38 | 只看該作者

回復 7# v03586

xR(0).FONT.size = 20

沒用過語法, 用錄製取得!

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

9^#

發表於 2016-4-18 16:28 | 只看該作者

回復 8# 准提部林

似乎沒有改變字型大小@@

中學生 Rank: 2

帖子: 193
主題: 29
精華: 0
積分: 222
點名: 0
作業系統: Windows7
軟體版本: OFFICE2013
閱讀權限: 20
註冊時間: 2015-9-18
最後登錄: 2023-4-29

10^#

發表於 2016-4-18 17:58 | 只看該作者

回復 8# 准提部林

找到方法了！
xR(0,4).Font.Size = 20

就能解決！

靜思自在 : 每天無所事事，是人生的消費者，積極、有用才是人生的創造者。

返回列表下一主題上一主題