早教吧作业答案频道 -->其他-->
excel问题如何将excel中将B列数据按下列要求处理A列是拼音,B列是和A列拼音对应的汉字.如何使同音汉字按如下表示分成C、D、E、F……列.请高手指教,先谢过了.A列B列C列D列……列zhishi知识
题目详情
excel问题 如何将excel中将B列数据按下列要求处理
A列是拼音,B列是和A列拼音对应的汉字.如何使同音汉字按如下表示分成C、D、E、F……列.请高手指教,先谢过了.
A列 B列 C列 D列 ……列
zhi shi 知识 只是 指示 指使
zhi shi 只是
zhi shi 指示
zhi shi 指使
yi sheng 医生 一生 一声 异声 医圣
yi sheng 一生
yi sheng 一声
yi sheng 异声
yi sheng 医圣
ji xu 继续 积蓄 几许 记叙
ji xu 继续
ji xu 积蓄
ji xu 几许
ji xu 记叙
记过有一个公式,可这个公式找不到了
A列是拼音,B列是和A列拼音对应的汉字.如何使同音汉字按如下表示分成C、D、E、F……列.请高手指教,先谢过了.
A列 B列 C列 D列 ……列
zhi shi 知识 只是 指示 指使
zhi shi 只是
zhi shi 指示
zhi shi 指使
yi sheng 医生 一生 一声 异声 医圣
yi sheng 一生
yi sheng 一声
yi sheng 异声
yi sheng 医圣
ji xu 继续 积蓄 几许 记叙
ji xu 继续
ji xu 积蓄
ji xu 几许
ji xu 记叙
记过有一个公式,可这个公式找不到了
▼优质解答
答案和解析
用VBA轻松搞定!
把文件给我,我在你的文件里直接编程.
Sub run() '使用前务必在表格中按A列进行扩展排序
Dim i As Integer
Dim j As Integer
Dim k As Integer
j = 1
i = 1
one:
If Cells(i,1) = "" Then Exit Sub '如果遇到空行就停止,也就是到了A列的尾
k = 2
For j = i + 1 To 10000
If Cells(j,1) = Cells(i,1) Then
k = k + 1
Cells(i,k) = Cells(j,2)
Else
Exit For
End If
Next
i = j
GoTo one
End Sub
把文件给我,我在你的文件里直接编程.
Sub run() '使用前务必在表格中按A列进行扩展排序
Dim i As Integer
Dim j As Integer
Dim k As Integer
j = 1
i = 1
one:
If Cells(i,1) = "" Then Exit Sub '如果遇到空行就停止,也就是到了A列的尾
k = 2
For j = i + 1 To 10000
If Cells(j,1) = Cells(i,1) Then
k = k + 1
Cells(i,k) = Cells(j,2)
Else
Exit For
End If
Next
i = j
GoTo one
End Sub
看了excel问题如何将excel...的网友还看了以下:
在配制一定质量分数的氯化钠溶液时,下列操作会引起溶质质量分数降低的是A、用托盘天平称量5.2g氯化 2020-05-13 …
1.一个等差数列{an}中,an/a2n是一个与n无关的常数,则此常数是多少?(1或1/2)2.在 2020-05-14 …
下列说法不正确的是()A.通过加热分解HgO可制得单质HgB.炼铁时,还原剂CO将铁从铁矿石中还原 2020-05-15 …
下列关于说明文特征的归纳正确的一项是()A.说明文语言要准确,所以要求列数字要列确数,不可列概数。 2020-05-17 …
科学1道计算题一列火车重1.47×107牛顿,以180千米/时的速度在平直的轨道上匀速行驶,如果列 2020-06-07 …
VBA里面有什么方法快速知道某一列的列标用数字表示的列标比如说a列列标就是1B是2那S列列标是多少 2020-06-25 …
设数列{an}的前n项和为Sn,对任意n∈N*满足2Sn=an(an+1),且an≠0.(Ⅰ)求数 2020-07-14 …
(2008•武昌区模拟)数列{an}的各项均为正数,前n项和为Sn,对于n∈N*,总有an,sn, 2020-07-15 …
excel区域内偶数列的问题我想在I列到R列范围内用条件格式设置一下颜色,就是I到R区域内偶数列:J 2020-11-07 …
设A是n阶实对称矩阵,将A的i列和j列对换得到B,再将B的i行和j行对换得到C,则A与C等价,合同, 2021-01-07 …