怎样把excel表格中的单元格内容赋值给一个字符型变量

DimmystAsStringDimmystrAsStringDimnAsIntegerDimmAsIntegermyst=Sheets("RawData").Cells... Dim myst As String
Dim mystr As String
Dim n As Integer
Dim m As Integer
myst = Sheets("Raw Data").Cells(cor, cold)
mystr = "Analyte Concentration ()"
n = Len(myst)
m = Len(mystr)
Sheets("Recovery").Cells(4, 3) = Mid(myst, m, n - m)
在我运行这段程序的时候，总是出现应用程序定义或对象定义错误，这要怎么解决，请高手帮帮忙展开

 我来答

若以下回答无法解决问题，邀请你更新回答

1个回答

#热议# 什么是淋病？哪些行为会感染淋病？

languanzeng
2011-09-20 · TA获得超过2288个赞

知道小有建树答主

回答量：1645

采纳率：0%

帮助的人：1836万

我也去答题访问个人页

关注

展开全部

看不明白你的代码，你还不如把你要做的事情说出来，让人家帮你写代码

追问

我想从单元格的内容里截取我想要的字符，如单元格里的内容为asdfasf（*******），我只想要括号里的内容，但是括号里的内容又使不确定的，这样我要怎么写呢

追答

假定你的数据在A列，A1起，数据里面只有一对括号，用下面代码把括号里的数据提取到B列：
 
Sub aa()
    n = Range("a65536").End(xlUp).Row
    i = 1
    For Each cell In Range("a1:a" & n)
        str1 = cell.Value
        Set regxp = CreateObject("vbscript.regexp")
        With regxp
             .Global = True
             .ignorecase = True
             .Pattern = "(（|\().+?(\)|）)"
        End With
        If regxp.test(str1) Then
              Set m = regxp.Execute(str1)
              For Each c In m
                   Cells(i, 2) = Replace(Replace(Replace(Replace(c, "(", ""), ")", ""), "（", ""), "）", "")
              Next c
        End If
        i = i + 1        
    Next cell    
End Sub
上面代码可以识别中文模式的括号和英文模式的括号