excel表格中，如何批量将股票代码转换成带sh和sz的股票代码？表格中的原股票代码如下图所示：

1. excel表格中，如何批量将股票代码转换成带sh和sz的股票代码？表格中的原股票代码如下图所示：

深证股均为0开头，3开头的是创业板，也在深证交易。6开头的是沪市。
假设股票代码在列，B1=IF(LEFT(A1,1)=6,"sh","sz")&A1,向下拉公式即可。
因为深证股票0开头，代码可能只显示了数字，零没有开头，导致形如000666的股票被错误的标为sh，上面公式可以改为：
=IF(LEN(A1)<6,"sz",IF(LEFT(A1,1)=6,"sh","sz"))&REPT(0,6-LEN(A1))&A1

2. EXCEL中如何把以下单元格的内容去掉后面几个字符？ 000585.SZ 000586.SZ

方法两个，很简单的
替换法，编辑-替换，然后在查找内容里输入.SZ，在替换栏里不输入任何字符，点全部替换。
分列法，如果你的后几个字符如你列出来的那样整齐，直接点数据-分列，然后选择符号分列，点下一步，选择其他，在后面的空白处输入.符号，然后点分列即可

3. 在当前excel中用VBA编程取出另一个xls文件中的内容

没有你的工作表，试着闭门造车一下，看看能用不。你说的那个规律我不知道有什么用。
Sub GetContent()
    Dim Sh As Workbook, Wk2 As Workbook, R As Range, S As String, F As Boolean, L As Long
    Set Wk1 = Workbooks("新建Microsoft Excel工作表.xls") '从这个工作表中复制
    Set Wk2 = ActiveWorkbook         '复制到这个工作表中
    F = 0
    S = ""
    L = 1
    With Wk1.ActiveSheet
        For Each R In .Range(.Cells(1, 1), .Cells(.Cells(65536, 1).End(xlUp).Row, 1)).Cells
            Select Case R.Value
                Case "body"
                    F = 1
                Case ""
                    If F Then
                        F = 0
                        Wk2.ActiveSheet.Cells(L, 1) = S
                        S = ""
                        L = L + 1
                    End If
                Case Else
                    If F Then S = S & R.Value
            End Select
        Next
    End With
End Sub

4. EXCEL VBA 怎样实现A列总当输入大于600000自动在当前单元格最前加字符SH，即SH600000，否则加字符SZ

Sub Test()
    Dim Sht As Worksheet
    Dim Rng As Range, RngEnd As Range
    Dim RngArea As Range
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Application.Calculation = xlCalculationManual
    Set Sht = ActiveSheet
    Set RngEnd = Sht.Cells(Rows.Count, 1).End(xlUp)
    Set RngArea = Sht.Range(Range("a1"), RngEnd)
    For Each Rng In RngArea
        If Rng.Value > 600000 Then
            Rng.Value = "SH" & Rng.Value
        Else
            Rng.Value = "SZ" & Rng.Value
        End If
    Next
    Set Sht = Nothing
    Set Rng = Nothing
    Set RngEnd = Nothing
    Set RngArea = Nothing
    Application.Calculation = xlCalculationAutomatic
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
End Sub

5. EXCEL表格如何把表1中的部分数据自动填写到表2中？

可以的，只要在表2 中设置引用表1数据即可。
表2 的D12单元格引用 表1初始数据工作表中的B12单元格内的数据
=[表1.xls]初始数据!$B$12。
设置好所有单元格后，只要在初始表中输入数据，表2就自动生成数据。

6. vba 将一个excel的数据复制到另一个excel中

Sub AAA()    Dim Sh1 As Worksheet    Dim Sh2 As Worksheet    Set Sh1 = Workbooks("1.XLS").Sheets(1)    Set Sh2 = Workbooks("2.XLS").Sheets(1)    Sh1.Range(Sh1.[A1], Sh1.Range("A1").End(xlDown)).Copy Sh2.[A1]    Sh1.Range(Sh1.[A65536].End(xlUp), Sh1.[A65536].End(xlUp).End(xlUp)).Copy Sh2.[B1]End Sub随便放哪个工作簿吧。但是，两个工作簿都要打开。当然你也可以加上打开工作簿的代码。

7. excel中怎么if函数我筛选出包含SH600229中的SH或SZ000229中的SZ？

假如是查A1-A10这列，在B1
=if(countif(A1，"*SH600229*")=1,"sh","")复制下去B10 
在c1
=if(countif(A1，"*Sz000229*")=1,"sz","")复制下去c10

8. EXCEL中如何用VBA删除多个工作表?

sub ds()
for i = worksheets.count to 1 step -1
if worksheets(i).name like "sh*" then '( 这里的sh区分大小写)
worksheets(i).delete
end if
next
end sub
如何使用Excel VBA
打开一个Excel文件，鼠标右击下面的工作表（如sheet1）。选择“查看代码”，就可以打开VBA编辑界面。

选择如下图所示的下拉菜单，选择“worksheet”。

选择如下图所示的下拉菜单，选择对应的触发模式。这里我们选择BeforeDoubleClick，意思就是说：在本工作表鼠标双击（之前），将触发下面的代码程序。（activate意思是说：在sheet表被选取的时候，就触发；Change意思是说：在这个模式下，只要sheet（工作表）发生变化，就将触发；Before Right Click是指在鼠标右击之前触发；SelectionChange是指在鼠标焦点发生变化时，触发。）

选择完成后，我们会看到下面出现了两条代码；这俩条代码其实是在声明一个函数。

将鼠标放置在这两行代码之间，我们写上执行语句：
Sheet1.Cells(1, 3) = Sheet1.Cells(1, 1) + Sheet1.Cells(1, 2)
其中：sheet1.cells（1,3）就是指第一行第三列的这个单元格；Sheet1.Cells(1, 1)就是指第一行第一列的这个单元格；Sheet1.Cells(1, 2)就是指第一行第二列的单元格。执行语句的意思是：将cells（1,1）和cells（1,2）的值相加，并赋值给cells（1,3）
注意的是：写语句的时候，输入法一定要是输入字母的模式。要不然你的语句会报错。
然后点击保存，回到Excel的原始界面。在cells（1,1）和cells（1,2）中输入两个数值。

注意看：现在的cells（1,3）数值是空的。
在sheet1的工作表中，双击你的鼠标。你会发现，cells（1,3）的值变成了cells（1,1）和cells（1,2）的和。（204849=125895+78954）。