小编Abd*_*yas的帖子

我有这样的输出(t测试输出)

我想把它们结合起来.但就是这样.值仅相同,但不是上述格式.

我们如何以第一个提到的格式以txt格式保存所有这些？

我有这个代码。

此代码转换为 xlsm 文件。

我想转换为 xlsx 文件。

如何？

我尝试通过改变

wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormatTO
wBook.SaveAs XlsFolder & Replace(fname, ".csv", ".xlsx")

但没有成功。

Private Sub CommandButton2_Click()
Dim CSVfolder As String
 Dim XlsFolder As String
 Dim fname As String
 Dim wBook As Workbook

 CSVfolder = "C:\csv\"
 XlsFolder = "C:\Charts\"

 fname = Dir(CSVfolder & "*.csv")

 Do While fname <> ""
    Set wBook = Workbooks.Open(CSVfolder & fname, Format:=6, Delimiter:=",")
    wBook.SaveAs XlsFolder & Replace(fname, ".csv", ""), ThisWorkbook.FileFormat
    wBook.Close False
 fname = Dir
 Loop
End …

我有一个 Excel 文件，其中有 2 个按钮，可访问两个不同的模块。运行调用该模块的程序后，我们可以在另一个模块中访问该模块的变量吗？

我的模块看起来像这样

第一个模块..

Public Sub Directory_Path()
Dim Directory As String
    Directory = InputBox("Enter the Directory path that contains folders ""This Quarter"",""Last Quarter"",""Second_Last_Quarter"".")
    If Right(Directory, 1) = "\" Then
    Directory = Left(Directory, Len(Directory) - 1)
    End If
End Sub

我使用 Public Sub Directory_Path() 调用第二个模块中的第一个模块。我希望第一个模块中的目录变量用作第二个模块中的变量...

我的数据集看起来有点类似于:

Category   Value1   Value2
       A       19      143
       A       12      124
       A       21      130  
       B       23      323
       B       24      323
       B       23      342
       B       24      233
       B       27      234
       C       28      212
       C       29      233      
       D       11      365
       D       12      323
       D       13      344

该数据集有许多类别即.A,B,C,D等和两列

我们怎样才能在类别中找出这些价值的第90个百分点？

输出应该是这种模式: