求助：excle中从一对多转换成多对一

2021-02-23 02:38:35 628 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

EXCLE调用REFPROP操作以及问题常规调用操作：本人电脑是EXCLE2019, REFPROP9.1, WIN10。 1.了解安装REFPROP的文件夹位置； 2.打开EXCLE，点击选项-加载项-EXCLE加载项-转到-浏览：选择REFPROP安装包内的.xla文件，加载后将其前面的对勾勾选； 3.正常情况下，现在即可正常使用；在单元格内输入代码进行测试：输入=RefpropXLSVersionNumber()，显示9.1或者10；输入=Density("...... 阅读详情

求助：excle中从一对多转换成多对一具体图片如下
求大佬帮忙看看，数据量大

具体文件如附件:

...全文

单片机笔记十二：华大HC32L136超低功耗设计实战本文详细介绍了华大HC32L136单片机的超低功耗设计实战，包括深度睡眠模式下仅0.5μA的电流消耗、五种功耗模式的对比与配置、外设使用技巧及硬件级优化方法。通过实际项目案例，展示了如何利用ARM Cortex-M0+内核的HC32L136显著延长电池寿命，适用于智能门锁、额温枪等低功耗设备。阅读详情

门文闵同学M

非技术类 743 成员 26,904 内容

+ 关注 + 加入社区

切换为时间正序

赵4老师 2021-02-24

打赏
举报

// 求助：excle中从一对多转换成多对一
// https://bbs.csdn.net/topics/399070161
//=====输入=====
//book1.csv:
//漏洞,设备
//A,"1,2,3,4,5"
//B,"2,3,4"
//C,"1,4,5,6"
//D,"2,3,5,7,8"
//=====输出=====
//book2.csv:
//设备,漏洞
//1,"A,C"
//2,"A,B,D"
//3,"A,B,D"
//4,"A,B,C"
//5,"A,C,D"
//6,"C"
//7,"D"
//8,"D"
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
const int MAXLS=10000;
struct LS {
    char L[8];
    char S[8];
} LSs[MAXLS],ls;
char l[8];
char s[8];
int main() {
    FILE *fi=fopen("book1.csv","r");
    if (NULL==fi) {
        printf("Can not open file book1.csv\n");
        return 1;
    }
    char ln[80];
    fgets(ln,80,fi);
    char *p=strchr(ln,',');
    char fda[40];
    strncpy(fda,ln,p-ln);fda[p-ln]=0;
    char *q=strchr(p+1,'\n');
    char fdb[40];
    strncpy(fdb,p+1,q-p-1);fdb[q-p-1]=0;
    FILE *fo=fopen("book2.csv","w");
    if (NULL==fo) {
        fclose(fi);
        printf("Can not create file book2.csv\n");
        return 2;
    }
    fprintf(fo,"%s,%s\n",fdb,fda);
    int i=0;
    while (1) {
        if (NULL==fgets(ln,80,fi)) break;
        p=strchr(ln,',');
        strncpy(l,ln,p-ln);l[p-ln]=0;
        q=p+2;
        while (1) {
            p=strchr(q,',');
            if (NULL==p) {
                p=strchr(q,'"');
                if (NULL==p) {
                    printf("Format error in line %d:%s",i+1,ln);
                    fcloseall();
                    return 3;
                }
                strncpy(s,q,p-q);s[p-q]=0;
                strcpy(LSs[i].L,l);
                strcpy(LSs[i].S,s);
                i++;
                if (i>=MAXLS) {
                    printf("Too many lines( >%d lines)\n",MAXLS);
                    fcloseall();
                    return 4;
                }
                break;
            } else {
                strncpy(s,q,p-q);s[p-q]=0;
                strcpy(LSs[i].L,l);
                strcpy(LSs[i].S,s);
                i++;
                if (i>=MAXLS) {
                    printf("Too many lines( >%d lines)\n",MAXLS);
                    fcloseall();
                    return 4;
                }
                q=p+1;
            }
        }
    }
    int n=i;
//  for (i=0;i<n;i++) printf("%s - %s\n",LSs[i].L,LSs[i].S);
    int j;
    for (i=0;i<n-1;i++) {
        for (j=i+1;j<n;j++) {
            if (strcmp(LSs[i].S,LSs[j].S)>0
            || (strcmp(LSs[i].S,LSs[j].S)==0
             && strcmp(LSs[i].L,LSs[j].L)>0)) {
                ls=LSs[i];LSs[i]=LSs[j];LSs[j]=ls;
            }
        }
    }
//  for (i=0;i<n;i++) printf("%s - %s\n",LSs[i].L,LSs[i].S);
    int st=0;
    for (i=0;i<n;i++) {
        if (0==st) {
            strcpy(s,LSs[i].S);
            fprintf(fo,"%s,\"%s",s,LSs[i].L);
            st=1;
        } else if (1==st) {
            if (0==strcmp(s,LSs[i].S)) {
                fprintf(fo,",%s",LSs[i].L);
            } else {
                strcpy(s,LSs[i].S);
                fprintf(fo,"\"\n%s,\"%s",s,LSs[i].L);
            }
        }
    }
    fprintf(fo,"\"\n");
    fcloseall();
    return 0;
}

脆皮大雪糕 2021-02-24

打赏
举报

假设你的数据在A,B列。然后在C,D列输出结果：


Sub test()
    Dim i As Long, j As Long
    Dim tmp() As String
    For i = 2 To ActiveSheet.Range("A2").End(xlDown).Row
        tmp = Split(ActiveSheet.Cells(i, 2).Text, ",")
        For j = LBound(tmp) To UBound(tmp)
            ActiveSheet.Cells(Val(tmp(j) + 1), 3) = Str(tmp(j))
            ActiveSheet.Cells(Val(tmp(j) + 1), 4) = ActiveSheet.Cells(Val(tmp(j) + 1), 4).Text & IIf(ActiveSheet.Cells(Val(tmp(j) + 1), 4).Text = "", "", ",") & ActiveSheet.Cells(i, 1).Text
        Next
    Next
End Sub

不懂别说哎 2021-02-24

打赏
举报

用数组存数据，用Split函数分割，然后按结果要求重新填充

求助：excle中从一对多转换成多对一

相关推荐