Excel怎样获得如图的值？ excel空值如何表示
Excel 如何取得图表系列上面的值
有图表就有数据源，如果将图表复制成图片，才可以没有数据源。
如果你看到的是真正的图表，就说明源数据是存在的。所以请在图表上右键，或在“图表工具”的“设计”选项卡上单击“选择数据”，则可在弹出的对话框中看“图表数据区域”指向了哪个区域。
在图表上右键，弹出菜单有没有出现“选择数据”？
或者选择图表后，是否出现“图表工具”？
如果出现，请单击“选择数据”，看看“图表数据区域”里是什么内容。
如果没有出现，说明只是一个图片，不是图表。
取消隐藏分两种情况，若只是隐藏的行或列，可选择隐藏的行或列，右键－取消隐藏。
如果是隐藏了工作表，则在工作表标签上右键－取消隐藏。
如果数据源是在另外的工作簿，则只能用VBA来提取了。
新建工作表或重命名一个工作表，起名ChartData。
建一模块，并将下面代码粘贴到模块中
Sub GetChartValues()
Dim NumberOfRows As Integer
Dim X As Object
Counter = 2
NumberOfRows = UBound(ActiveChart.SeriesCollection(1).Values)
Worksheets("图表数据").Cells(1, 1) = "X Values"
With Worksheets("图表数据")
.Range(.Cells(2, 1), .Cells(NumberOfRows + 1, 1)) = Application.Transpose(ActiveChart.SeriesCollection(1).XValues)
End With
For Each X In ActiveChart.SeriesCollection
Worksheets("图表数据").Cells(1, Counter) = X.Name
With Worksheets("图表数据")
.Range(.Cells(2, Counter), .Cells(NumberOfRows + 1, Counter)) = Application.Transpose(X.Values)
End With
Counter = Counter + 1
Next
End Sub
然后选择要从中提取数据的图表并运行这个代码宏。
excel 用vba 怎么这样获取值
展开全部
sub xx()
n=cells(4^8,3).end(3).row
for i=1 to n
if cells(i,3)<>"" and cells(i,1)<>"" then
x=0
for j= 1 to len(cells(i,1))
a=mid(cells(i,1),j,1)
if instr(cells(i,3),a)>0 then x=x+1
next
if x=2 then cells(i,2)=cells(i,3)
endif
next
end sub
Excel 中怎么实现从一个sheet中提取值，到另一个sheet中详情如图；
1、首先我们需要在同一个excel表格中，添加两个工作表。把第一个表格命名为：被引用表，第二个表格命名为：引用后的表格。
2、在第二个表格中引用后数据出现的位置输入“=被引用表格的名字！需要引用数据位置”就行了，例如需要引用第一个表格中的编号，就可以输入：=被引用表！A2。
3、完成上面步骤后，回车就出现了引用后的编号。
4、同样的道理,在相应的位置输入:=被引用表！B2。
5、点击回车,就出现了引用的姓名。
6、采用同样的方式可以引用第一个表格的出生年月日。
7、按照如上方法进行操作，最后就可以完成引用后的表格。