Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 8239|回复: 11

[已解决]在EXCEL中A列输入数字,B以后的各列自动生成数据,如何运用函数制作此表

[复制链接]
发表于 2014-1-24 23:51 | 显示全部楼层 |阅读模式
本帖最后由 不一不异 于 2014-1-25 23:07 编辑

 
A
B
C
D
E
F
G
H
I
J
K
L
1
表头
2
a
b
c
d
e
f
g
h
i
j
 
3
    7 
2
6
4
9
8
7
1
0
5
3
f 
1.此列为原始数据,当A3输入7后,G3中的7变色突出。L3自动生成G3所对应的数值“f”。
4
1
2
6
4
9
8
1
0
5
3
7
f
2.当A3输入7后,B4---K4按先后顺序自动生成B3--K3的数值,
5
1
2
6
4
9
8
0
5
3
7
1
j
并把7放在最后一格。如此类推。
6
0
2
6
4
9
8
0
5
3
7
1
f
7
2
2
6
4
9
8
5
3
7
1
0
a
8
1
6
4
9
8
5
3
7
1
0
2
h
9
3
6
4
9
8
5
3
7
0
2
1
f
10
9
6
4
9
8
5
7
0
2
1
3
c
11
6
6
4
8
5
7
0
2
1
3
9
a
12
6
4
8
5
7
0
2
1
3
9
6
j
13
6
4
8
5
7
0
2
1
3
9
6
j
14
9
4
8
5
7
0
2
1
3
9
6
i
15
7
4
8
5
7
0
2
1
3
6
9
d
16
9
4
8
5
0
2
1
3
6
9
7
i
17
2
4
8
5
0
2
1
3
6
7
9
e
18
5
4
8
5
0
1
3
6
7
9
2
c
19
4
4
8
0
1
3
6
7
9
2
5
a
20

8
0
1
3
6
7
9
2
5
4

最佳答案
2014-1-26 11:03
B5单元格公式:=IF($A4="","",IF(COLUMN()=11,$A4,IF(COUNTIF($B4:B4,$A4)>0,C4,B4)))
L4单元格公式=IF(A4="","",INDEX(B3:K3,MATCH(A4,B4:K4,)))

B5公式输入后右拉、下拉。
L4公式输入后下拉。

设置条件格式 =a4 时为蓝色

请教各位大侠!!!.rar

2.74 KB, 下载次数: 10

发表于 2014-1-24 23:57 | 显示全部楼层
回复

使用道具 举报

 楼主| 发表于 2014-1-25 00:09 | 显示全部楼层
回复

使用道具 举报

发表于 2014-1-25 08:33 | 显示全部楼层
你能上个附件吗?
回复

使用道具 举报

发表于 2014-1-25 10:25 | 显示全部楼层
你这个B~K出现的是0~9的不重复值吗?
回复

使用道具 举报

发表于 2014-1-25 11:07 | 显示全部楼层
本帖最后由 雪舞子 于 2014-1-25 11:52 编辑

是不是这个意思
  1. Private Sub Worksheet_Change(ByVal Target As Range)
  2.     Dim i%, j%, h%, k%
  3.     If Target.Column > 1 Or Target.Row < 3 Then Exit Sub
  4.     Application.EnableEvents = False
  5.     h = Target.Row
  6.     Range("a1:l1000").Rows(h + 1 & ":1000").Clear
  7.     For i = 2 To 11
  8.         Cells(h + 1, i) = Cells(h, i).Value
  9.         If Cells(h, 1) = Cells(h, i) Then
  10.             Cells(h, i).Font.FontStyle = "加粗"
  11.             Cells(h, 12) = Cells(2, i).Value
  12.             Cells(h + 1, 11) = Cells(h, i).Value
  13.             k = i: i = 11
  14.         End If
  15.     Next
  16.     For j = k To 10
  17.         Cells(h + 1, j) = Cells(h, j + 1).Value
  18.     Next
  19.     Application.EnableEvents = True
  20. End Sub
复制代码
序列.rar (15.55 KB, 下载次数: 8)
回复

使用道具 举报

 楼主| 发表于 2014-1-25 21:27 | 显示全部楼层
回5楼,是不重复值
回复

使用道具 举报

 楼主| 发表于 2014-1-25 22:20 | 显示全部楼层
雪舞子 发表于 2014-1-25 11:07
是不是这个意思

是你电子表格里所显示的意思,但你的公式我不明白,请教!
回复

使用道具 举报

发表于 2014-1-26 00:43 | 显示全部楼层
不一不异 发表于 2014-1-25 22:20
是你电子表格里所显示的意思,但你的公式我不明白,请教!

电子表格里没有公式,是根据你的要求写的一段VBA代码,只要在A列相应单元格中输入数字,就会按要求产生相应了后续序列数据
回复

使用道具 举报

发表于 2014-1-26 11:03 | 显示全部楼层    本楼为最佳答案   
B5单元格公式:=IF($A4="","",IF(COLUMN()=11,$A4,IF(COUNTIF($B4:B4,$A4)>0,C4,B4)))
L4单元格公式=IF(A4="","",INDEX(B3:K3,MATCH(A4,B4:K4,)))

B5公式输入后右拉、下拉。
L4公式输入后下拉。

设置条件格式 =a4 时为蓝色
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:32 , Processed in 3.002991 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表