求VBA代码，谢谢~

情况是这样
第一行是固定有内容
从第二行开始A2到F2是有内容的
下面不确定几行有内容不过有内容的也只是E和F列有内容
可以理解成A2到F2是一行标题下面N行是明细但是明细只有EF列有内容
直到碰到下一个AN到FN的标题然后重复
如图（第一行忘了空出来）
现在想要的结果是
把A B C写到G1 H1 I1 当然如果有D就写到J1
然后相对应的数值写到对应的下面
说明：ABC不是固定3个，但是如果第一个是ABC后面的也都是ABC
我是想要代码能处理别的表因为别的表可能是ABCD 但同样的如果第一个是ABCD后面也相同是ABCD
请帮忙
举例：
部门代码职位年度期间奖金
AA BB CC DD 8 20
9 20
10 30
AB CD DE PP 8 15
9 30
10 20
要变成
部门代码职位年度期间奖金 8 9 10
AA BB CC DD 8 20 20 20 30
&nb

举报该问题

推荐答案 2011-11-15

Sub WriteData()
Dim lgRow As Long, iCol As Integer
lgRow = 3
iCol = 7
Do
If Cells(lgRow, 1) <> "" And Cells(lgRow, 2) <> "" And Cells(lgRow, 3) <> "" And Cells(lgRow, 4) <> "" And Cells(lgRow, 5) <> "" And Cells(lgRow, 6) <> "" Then Exit Sub
Cells(1, iCol) = Cells(lgRow, 5)
iCol = iCol + 1
lgRow = lgRow + 1
Loop Until Cells(lgRow, 5) = ""
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/rZnrBTTBD.html

其他回答

第1个回答 2011-11-14

在同一标题下，ABC是重复出现还是不重复呢？第一个标题下的E列与第二个标题下的E列之间有没有区分标志（比如空一行）？

第2个回答 2011-11-14

把A B C写到G1 H1 I1 当然如果有D就写到J1
你的图是加第一行后,A BC 是写在 E3 E4 ET
请先说清楚要求追问

ABC是分别写在G1 H1 I1......不变
忘了弄分数 OK的话加100

相似回答

求VBA代码大全答：89:将所有工作表的A1单元作为单击按钮(工作簿代码)90:闹钟——到指定时间执行宏(工作簿代码)91:改变Excel界面标题的宏(工作簿代码)92:在指定工作表的指定单元返回光标当前多选区地址(工作簿代码)93:B列录入数据时在A列返回记录时间(工作表代码)94:当指定区域修改时在其右侧的2个单元返回当前日期和时间(工作表代...

vba,求代码答：动态添加文件框可用 Me.Controls.Add("Forms.TextBox.1", "textBoxTest", True)Label标签也类似下面是网上一段类似动态添加控件的代码供你参考 Private rowCount As Integer 'To keep track of rows.Private Sub UserForm_Initialize()rowCount = 1 End Sub Private Sub LabelAddRow_Click() 'Eve...

急!跪求VBA代码答：代码如下，1、2、3、4、5在何意单元格都行（详见附件）Private Sub CommandButton1_Click()Dim Ra1 As Range, Ra2 As Range Set Ra1 = Cells.Find("1", , , 1).Offset(1)If IsEmpty(Ra1) Then Ra1 = 100 Else Set Ra2 = Ra1.Offset(, 4).End(1)If Ra2.Column > Ra1.Column ...

求VBA代码答：If k = 5 Then '列号判断 k = 1 'k置1 Else k = k + 1 'k加1 End If arr1(j, k) = arr(i, 1) '转存 End If Next i Range("B3:F" & UBound(arr1) + 2) = arr1 '赋值到指定单元格End Sub ...