fieldset{padding:10px;}
EXCEL中如何解决引用后自动产生多行数据,及关联删除等问题?SHEET1表中A字段输入后,如何实现SHEET2表中的A字段,其在SHEET1中输入的每行数据在SHEET2中自动产生三行,如下表:SHEET1中有: (输入主表) 号码(A栏位) 栏位2(B栏位) 栏位3(C栏位) 14000 15000 16000 ……..SHEET2中有:(次表中实现以下功能) 号码(A栏位) 栏位2(B栏位) 栏位3(C栏位) 14000 14000 14000 15000 15000 15000 16000 16000 16000 ……..问题1:,SHEET2中A栏位从SHEET1中获取,重要的时如何实现从SHEET1中获取的每个单元格数据,在SHEET2中需生成同样号码三行数据,并以此类推…),要如何做?问题2:实现问题1以后,如果要实现一按扭其功能是:假如删除SHEET1中的某行数据(如号码为14000行数据)时,SHEET2中对应的三号数据也删除(删除后不得留空行),这个恐怕是要用VBA实现了,如何做?问题1如果不用VBA,用函数应该能实现吧..,问题2如果用VBA实现该如何写呢?.劳烦了.——解决方案——————————————————–我估计你是下面这个要求把: 在sheet1里头放一个按钮, 关联下面 这个代码, 选择sheet1的一行 , 点击这个按钮就可以删除了sheet2的A列, 要根据A1=INDIRECT("sheet1!A" & INT((ROW()+2)/3)) 先下拉填充Sub del3() str1 = ActiveCell.Text r = ActiveCell.Row r = r & ":" & r Sheets("Sheet2").Select Columns("A:A").Select ‘根据a列匹配 Selection.Find(What:=str1, After:=ActiveCell, LookIn:=xlValues, LookAt:= _ xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , MatchByte:=False, SearchFormat:=False).Activate r2 = ActiveCell.Row r2 = r2 & ":" & (r2 + 2) ‘删除3行 Rows(r2).Select Selection.Delete Shift:=xlUp Sheets("Sheet1").Select Rows(r).Select Selection.Delete Shift:=xlUp End Sub其实每一朵花，都有它自己的生命，
