xcel中函数或VB代码实现控制单元格数据5719.pdf

《xcel中函数或VB代码实现控制单元格数据5719.pdf》由会员分享，可在线阅读，更多相关《xcel中函数或VB代码实现控制单元格数据5719.pdf（3页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、急求 excel中函数或 VB 代码实现控制单元格数据 2013-01-05 10:38 hujilin2fm|分类：办公软件|浏览 127 次 如图 1,在 A1 中输入 5,在 B1 至 B5 中自动填充上特定数据(以字母 A 为例)如图 2 在 A 中输入数字 6,在 B1 至 B6 中自动填充上特定数据(以字母 A 为例)以此类推在 A1 中办输入数字 N,在 B1 至 Bn 中自动填充上特定数据(以字母 A 为例)如图 3 在 A1 中输入值 2 在 A2 中输入值 3,在 B1 至 B2 中自动填充上特定数据,在 B3 至 B5中自动填充上特定数据(以字母 A、B 为例)如图 4，

2、按上述逻辑推论，A 列输入数值，B 列会按数值顺序生成数据 扫描二维码下载 下载知道 APP 10 分钟有问必答!建议：可使用微信的“扫一扫”功能扫描下载 分享到：检举|2013-01-05 12:22 提问者采纳 如图我的理解是：A1 的值是 B 列中“A”的个数，A2 的值是 B 列中“B”的个数。按此思路，以下宏满足你的要求，且可随时更改 A 列中各值 Private Sub Worksheet_Change(ByVal Target As Range)If Target.Column=1 Then Dim bf,aRow,bRow,a,b,bLine,aArr,bArr Range(B

3、:B).ClearContents aRow=A1000.End(xlUp).Row If aRow=1 Then bLine=Target.Value bArr=Range(B1:B&bLine).Value For b=1 To bLine bArr(b,1)=A Next Else aArr=Range(A1:A&aRow).Value For a=1 To aRow bLine=bLine+aArr(a,1)Next bArr=Range(B1:B&bLine).Value bRow=1 For a=1 To aRow If Len(bf)Then bf=Chr(Asc(bf)+1)E

4、lse bf=A End If For b=bRow To aArr(a,1)+bRow-1 bArr(b,1)=bf Next b bRow=bRow+aArr(a,1)Next a End If Range(B1:B&bLine)=bArr End If End Sub 代码已验证，可放心使用 追问 请问如何使用，能不能发个具体操作步骤截图给我？在 Excel 中 VBA 宏代码是以 sub 开头的，如果建一个宏然后贴代码进去，关掉代码窗口就找不到代码了 回答 例如在 sheet1 表中使用。打开 vb 编辑器，双击左上部“工程”下的“sheet1”，把代码复制到右边的代码窗口中即可 使用：每次当你在“sheet1”表的 A 列中输入值后，代码会自动执行，在 B列中生成结果 提问者评价 按照你说的，真的成功了，好开心，谢谢你！评论(7)|00