excel编程问题(两个表格之间的复制粘贴）

Question

两个EXCEL文件，我想把A文件的B2、B3、B4、B5、B6……B350格的信息，依次复制到B文件的B2、D2、F2、B4、D4、F4、B6、D6、F6……上。

如果手动操作，工作量太大，想减轻工作量。请问如何实现？？也许这很难……
请注意：需要粘贴的地方是B2、D2、F2、B4、D4、F4、B6、D6、F6，他们之间并不是连续的

Answer 1

写一段VBA代码，就能解决你的问题
1、打开A文件，在excel中按Alt+F11键进入VBA编程窗口
窗口中工具栏第二个图标边上的小三角形下拉下出来，选择“模块”，这就会在VBA中插入一个新的模块
2、现在在左边栏双击模块1，然后进入右边模块代码的书写窗口，写入以下代码
－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Sub trans()
Dim wk As Workbook
Dim wkOpend As Boolean
Dim targetRow As Long
Dim targetCol As Long
Dim cellCnt As Long
Dim sourceWsh As Worksheet
Dim targetWsh As Worksheet

'判别B.xls文件是否打开，如未打开则打开它，要求B.xls与A.xls在同一文件夹中
wkOpend = False
For Each wk In Workbooks
If wk.Name = "b.xls" Then
wkOpend = True
Exit For
End If
Next
If Not wkOpend Then
Workbooks.Open "B.xls"
End If

'设置源为目标工作表对象
Set sourceWsh = ThisWorkbook.Worksheets(1)
Set targetWsh = Workbooks("b.xls").Worksheets(1)

'开始复制填充操作
targetWsh.Range(Cells(2, 2), Cells(235, 4)).ClearContents
cellCnt = 2
For targetRow = 2 To 235 Step 2
For targetCol = 2 To 4
sourceWsh.Range("B" & cellCnt).Copy Destination:=targetWsh.Cells(targetRow, targetCol)
cellCnt = cellCnt + 1
Next
Next
End Sub

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
3、先保存一下a.xls
4、每次打开a.xls后，如果想进行你要求的复制操作，只需要进行如下操作：
选择“工具－宏－宏”菜单打开宏对话窗口，在里面你可以看到一个名为“trans“的宏，选中它并点击”执行“按钮即可。

－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－
这个程序的运行有两个要求，一是你的B文件必须取名为”b.xls“，如果不是，则需要修改程序中相应的地方，我想你找得到的；第二个要求是，b.xls必须与a文件在同一个文件夹下，否则程序找不到b文件而无法进行打开操作。t

Answer 2

sheet2的B2为：(1) =IF(OR(MOD(ROW(),2)<>0,MOD(COLUMN(),2)<>0),"",INDEX(Sheet1!$B$2:$B$65536,(ROW()/2-1)*3+COLUMN()/2))

或(2) =IF(OR(MOD(ROW(),2)<>0,MOD(COLUMN(),2)<>0),"",INDEX(Sheet1!$B$2:$B$65536,(ROW()/2-1)*3+COLUMN()/2)&"")
然后再向右填充，向下填充，搞定!
也可将上面的$B$2:$B$65536换为你的表1中的B列的数据区域如：$B$2:$B$13，那么用(1)

如果你的表2中还有其它数据，你可以在输入B2的公式后，复制-按ctrl,依次单击要用公式的单元格，如B2、D2、F2、B4、D4、F4、B6、D6、F6……-粘贴。

Answer 3

刚才做了一下,希望可以解决你的问题,

步骤比较长:

1,在A文件的B列后面的C列中输入*和+,两个*一个+,如下其中123456789是B列中原有的内容,**+,是在C列中输入的内容,输入两个*和一个+后,选中这三个拖动即可完成下面的填充,结果如下:
1 *
2 *
3 +
4 *
5 *
6 +
7 *
8 *
9 +
10 *
11 *
12 +
13 *
14 *
15 +
16 *
17 *
18 +
19 *
20 *
21 +
22 *

2,打开word,把B列和C列的有效内容复制一下,在word中选择 "编辑"->"选择性粘贴",选择"带格式文本(RTF)",确定后得到一个表格.

3,执行word中,"表格"->"转换"->"表格转换成文本",分隔符选制表符,这样把表格去掉了.

4.执行word中,"替换"操作,打开替换高级选项,查找内容输入 "*^p",(不含引号,下同)替换为空白,执行全部替换.

5.执行word中,第二次替换,查找内容输入"^t+^p",替换内容输入"^p^t^t^p",全部替换.

6.选中word中数据内容,执行"表格"->"转换"->"文本转换成表格",列数为3,确定之后得到表格,

7.在表格适当的列之前插入列,达到我们想要的效果.

8.选中表格,复制,在excel中新建文件,右键"选择性粘贴"->"文本",这样就得到了我们想要的内容,打开原来的excel表,把输入的**+去掉,选中我们自己作的内容后复制,然后在指定位置右键,"选择性粘贴",选择"跳过空格",

9.问题完成,

Answer 4

两个文件同时打开，全部选择要复制(ctrl+c)的信息表格，然后选择性粘贴到另外个文件中。

Answer 5

假设原数据在sheet1的B列;想复制到sheet2表中的目标位置:

sheet2的B2输入公式
=IF(MOD(ROW(),2),"",OFFSET(Sheet1!$B$2,((ROW()-2)/2)*3,))

sheet2的D2输入公式
=IF(MOD(ROW(),2),"",OFFSET(Sheet1!$B$3,((ROW()-2)/2)*3,))

sheet2的F2输入公式
=IF(MOD(ROW(),2),"",OFFSET(Sheet1!$B$4,((ROW()-2)/2)*3,))

分别将B2、D2、F2公式向下复制就行了