作者anhbclbe (Crush)
看板Office
标题[算表] vba的新插入列
时间Wed Nov 4 22:01:08 2015
软体: excel
版本:2007
想请教各位
我在excel 中的vba做一个插入的功能
选好目标栏位後就会插入一列空白储存格
但是新插入的储存格却没有延续上面储存格的格式、
合并的储存格分开了，格线也没了，公式也没有延续
目前写出来的结果如下连结(imgur)
http://imgur.com/a/KLIkt
插入新列的写法如下:
Private Sub CommandButton1_Click()
If ComboBox1.Text = "" Then MsgBox "请选择制程"
Worksheets("FC").Select
Worksheets("FC").Range("A30").Select
fcchno = ActiveCell.End(xlUp).Row
For i = 7 To fcchno
If Worksheets("FC").Range("A" & i).Value = UserForm9.ComboBox1.Text Then
Rows(i).Select
Selection.Insert shift:=xlDown
Next i
End Sub
目前的写法有误，会多插入2行，而且单纯的插入没有办法达到我的需求
请问一下我还有什麽方式可以达成呢
请多指教
谢谢!!
--
落霞与孤鹜齐飞 秋水共长天一色
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 49.159.11.188
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1446645672.A.4B2.html
1F：→ soyoso: 格线如要以上方或下方列的为准的话，可用复制後再以 11/04 22:19
2F：→ soyoso: range.pastespecial贴上格式 11/04 22:19
3F：→ soyoso: 公式方面可用复制贴上或是用range.autofill 11/04 22:21
4F：→ soyoso: 有写到会多插入二行方面，以原文巨集来看是否将selection. 11/04 22:27
5F：→ soyoso: insert包在if...end if内，因没有看到end if所以猜说是否 11/04 22:28
6F：→ soyoso: 回圈内都会执行到这行；如果then後面直接接rows(i).select 11/04 22:30
7F：→ soyoso: 也要续接selection.insert的话，请用:(冒号) 11/04 22:31
8F：→ anhbclbe: 感谢解答~~再来找资料看看!! 11/05 00:04